diff --git a/examples/stripes.pl.in b/examples/stripes.pl.in
index 5c4c6dfaa663fa758a26d1653a55449c52133820..362f4992e02743559107dda00b912721c6e982bc 100755 (executable)
--- a/examples/stripes.pl.in
+++ b/examples/stripes.pl.in
#! @PERL@
-
-#makes things work when run without install
-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 );
+use lib qw( @prefix@/lib/perl );
use strict;
use vars qw(@ISA $loaded);
"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";
+ die "ERROR: $ERROR\n";
};