[Popcon-commits] cvs commit to popularity-contest by ballombe

[ballombe at cvs.alioth.debian.org]

Update of /cvsroot/popcon/popularity-contest
In directory haydn:/tmp/cvs-serv25715

Modified Files:
	popcon-stat.pl 
Log Message:
Change tick interval to 28.
Tweak @INC to use the woody version of libchart-perl, see #231730.


Index: popcon-stat.pl
===================================================================
RCS file: /cvsroot/popcon/popularity-contest/popcon-stat.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- popcon-stat.pl	22 Jul 2005 10:12:40 -0000	1.9
+++ popcon-stat.pl	19 Nov 2005 09:44:32 -0000	1.10
@@ -3,7 +3,7 @@
 # Require the debian package libchart-perl.
 
 BEGIN {
- at INC=(@INC, map { "./$_" } @INC);
+ at INC=("./usr/share/perl5/", @INC);
 }
 
 $ENV{PATH}="/usr/bin:/bin";
@@ -79,7 +79,7 @@
 $obj->set ('max_val' => $maxv+1);
 $obj->set ('y_ticks' => int $maxv +1);
 $obj->set ('x_ticks' => 'vertical');
-$obj->set ('skip_x_ticks' => 14);
+$obj->set ('skip_x_ticks' => 28);
 $obj->png ("$dirpng/submission.png", \@data);
 
 use Chart::Composite;
@@ -101,7 +101,7 @@
   $obj->set ('brush_size' => 3);
   $obj->set ('pt_size' => 7);
   $obj->set ('x_ticks' => 'vertical');
-  $obj->set ('skip_x_ticks' => 14);
+  $obj->set ('skip_x_ticks' => 28);
   $obj->set ('composite_info' => [ ['LinesPoints', [1]], ['LinesPoints', [2] ] ]); 
   $obj->png ("$dirpng/sub-$arch.png", \@data);
 }
@@ -126,5 +126,5 @@
 $obj->set ('brush_size' => 3);
 $obj->set ('pt_size' => 7);
 $obj->set ('x_ticks' => 'vertical');
-$obj->set ('skip_x_ticks' => 14);
+$obj->set ('skip_x_ticks' => 28);
 $obj->png ("$dirpng/release.png", \@data);