diff --git a/examples/bigtops.pl.in b/examples/bigtops.pl.in
index ed93b7a74826a2fb1d3a938d4eb32c23eb626cfe..997386c5148278d4938fab79758d11fedf7550b8 100755 (executable)
--- a/examples/bigtops.pl.in
+++ b/examples/bigtops.pl.in
#! @PERL@
-
-#makes things work when run without install
-use lib qw( ../libraries/perl-shared/blib/lib ../libraries/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,
;
if ($ERROR = RRDs::error) {
- print "ERROR: $ERROR\n";
+ die "ERROR: $ERROR\n";
};