X-Git-Url: https://git.octo.it/?p=rrdtool.git;a=blobdiff_plain;f=examples%2Fbigtops.pl.in;h=997386c5148278d4938fab79758d11fedf7550b8;hp=9bc39db9bb5806e3047bba13eb4d641047b3aa2a;hb=85cd3f3afae48026843bea34d2d0d1056ee9dda5;hpb=a1fe8fd19bb4f558150e52c0624869667b739877

diff --git a/examples/bigtops.pl.in b/examples/bigtops.pl.in
index 9bc39db..997386c 100755
--- a/examples/bigtops.pl.in
+++ b/examples/bigtops.pl.in
@@ -1,14 +1,12 @@
 #! @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,
@@ -44,7 +42,7 @@ RRDs::graph "$name.png",
 ;
 
 if ($ERROR = RRDs::error) {
-  print "ERROR: $ERROR\n";
+  die "ERROR: $ERROR\n";
 };