X-Git-Url: https://git.octo.it/?p=rrdtool.git;a=blobdiff_plain;f=examples%2F4charts.pl.in;h=a11b944185db50684b70ed918863d793f0346072;hp=67dfdad0a3df7270cda7433dc9fb1b4edcad71bb;hb=ca8d9c109d76e8c024f21edd10474e0e5d29b892;hpb=a390dded3e87ac8fd340175a7aa8cf7bce4d02f3

diff --git a/examples/4charts.pl.in b/examples/4charts.pl.in
index 67dfdad..a11b944 100755
--- a/examples/4charts.pl.in
+++ b/examples/4charts.pl.in
@@ -1,14 +1,14 @@
-#! /usr/sepp/bin/perl
+#! @PERL@
 
 #makes things work when run without install
-use lib qw( ../bindings/perl-shared/blib/lib ../bindings/perl-shared/blib/arch );
-# this is for after install
-use lib qw( @prefix@/lib/perl ../lib/perl );
+use lib qw( @prefix@/lib/perl );
+
 use RRDs;
 
 my $start=time;
 my $rrd="randome.rrd";
 my $name = $0;
+$name =~ s/.*\///g;
 $name =~ s/\.pl.*//g;
 
 RRDs::create ($rrd, "--start",$start-1, "--step",300,
@@ -31,10 +31,11 @@ for ($t=$start; $t<$start+300*300; $t+=300){
   }
 }
 
-$c1="f57912a0";
-$c2="2a79e9a0";
-$w=300;
-$h=140;
+my $c1="f57912a0";
+my $c2="2a79e9a0";
+my $w=300;
+my $h=140;
+
 RRDs::graph "$name-L.png",
   "--title", "2 LINES", 
   "--start", "now",
@@ -115,12 +116,9 @@ RRDs::graph "$name-sample.png",
   "LINE1:b#ff0000:Max Incoming",
 ;
 
-
-
-print "ERROR: $ERROR\n" if $ERROR = RRDs::error;
-
-
-
+if ($ERROR = RRDs::error) {
+  die "ERROR: $ERROR\n";
+};
 
 print "This script has created $name.png in the current directory\n";
 print "This demonstrates the use of the TIME and % RPN operators\n";