X-Git-Url: https://git.octo.it/?p=rrdtool.git;a=blobdiff_plain;f=examples%2Fstripes.pl.in;h=5c4c6dfaa663fa758a26d1653a55449c52133820;hp=e4babd4b87c67b7decb8d87ee4753216459c1af4;hb=a4e465de6b8cb972864ec1636bef470dd1173d89;hpb=5837606887a6d81e8b1f7588525cb1c8783fb62b

diff --git a/examples/stripes.pl.in b/examples/stripes.pl.in
index e4babd4..5c4c6df 100755
--- a/examples/stripes.pl.in
+++ b/examples/stripes.pl.in
@@ -1,7 +1,7 @@
 #! @PERL@
 
 #makes things work when run without install
-use lib qw( ../libraries/perl-shared/blib/lib ../libraries/perl-shared/blib/arch );
+use lib qw( ../bindings/perl-shared/blib/lib ../bindings/perl-shared/blib/arch );
 
 #makes programm work AFTER install
 use lib qw( @prefix@/lib/perl ../lib/perl );
@@ -11,7 +11,7 @@ use vars qw(@ISA $loaded);
 
 use RRDs;
 my $start=time;
-my $rrd="randome.rrd";
+my $rrd="random.rrd";
 RRDs::create ($rrd, "--start",$start-1, "--step",300,
 	      "DS:a:GAUGE:600:U:U",
 	      "DS:b:GAUGE:600:U:U",
@@ -26,7 +26,7 @@ for ($t=$start; $t<$start+200*300; $t+=300){
   }
 }
 RRDs::graph "stripes.png",
-  "--title", 'Stripes Demo', 
+  "--title", "Stripes Demo", 
   "--start", $start,
   "--end", "start + 400 min",
   "--interlace", 
@@ -40,8 +40,8 @@ RRDs::graph "stripes.png",
   "AREA:beta#00b674:beta",
   "LINE1:b#ff4400:beta envelope\\c",
   "COMMENT:\\s",
-  "COMMENT:CDEF\:alpha=TIME,1200,%,600,LT,a,UNKN,IF",
-  "COMMENT:CDEF\:beta=TIME,1200,%,600,GE,b,UNKN,IF\\j";
+  "COMMENT:alpha=TIME,1200,%,600,LT,a,UNKN,IF",
+  "COMMENT:beta=TIME,1200,%,600,GE,b,UNKN,IF\\j";
 if ($ERROR = RRDs::error) {
   print "ERROR: $ERROR\n";
 };