die on error! -- Alex

git-svn-id: svn://svn.oetiker.ch/rrdtool/branches/1.2@700 a5681a0c-68f1-0310-ab6d-d61299d08faa

diff --git a/program/examples/4charts.pl.in b/program/examples/4charts.pl.in
index 828595cf9e6057280de266d09025fd93caac6860..a11b944185db50684b70ed918863d793f0346072 100755 (executable)
--- a/program/examples/4charts.pl.in
+++ b/program/examples/4charts.pl.in
@@ -117,7 +117,7 @@ RRDs::graph "$name-sample.png",
 ;
 
 if ($ERROR = RRDs::error) {
-  print "ERROR: $ERROR\n";
+  die "ERROR: $ERROR\n";
 };
 
 print "This script has created $name.png in the current directory\n";

diff --git a/program/examples/bigtops.pl.in b/program/examples/bigtops.pl.in
index 0f5d98ccc85ac1ece2dd509fda577eb52b5508a2..997386c5148278d4938fab79758d11fedf7550b8 100755 (executable)
--- a/program/examples/bigtops.pl.in
+++ b/program/examples/bigtops.pl.in
@@ -42,7 +42,7 @@ RRDs::graph "$name.png",
 ;
 
 if ($ERROR = RRDs::error) {
-  print "ERROR: $ERROR\n";
+  die "ERROR: $ERROR\n";
 };
 
 

diff --git a/program/examples/minmax.pl.in b/program/examples/minmax.pl.in
index 1e94a6fac6fad2e5f8f48487becbd2af4e475078..3714bc1fb97cb8d1ab09dc6cf96af00588971124 100755 (executable)
--- a/program/examples/minmax.pl.in
+++ b/program/examples/minmax.pl.in
@@ -44,7 +44,7 @@ RRDs::graph "$name.png",
 ;
 
 if ($ERROR = RRDs::error) {
-  print "ERROR: $ERROR\n";
+  die "ERROR: $ERROR\n";
 };
 
 

diff --git a/program/examples/shared-demo.pl.in b/program/examples/shared-demo.pl.in
index 6d9374f647f026e09a2e43a26afaf9968f62c468..f01c1ae1c886adf294515ef546141471cb8eb08d 100755 (executable)
--- a/program/examples/shared-demo.pl.in
+++ b/program/examples/shared-demo.pl.in
@@ -142,7 +142,7 @@ for (my $i=0;$i<$GRUNS;$i++) {
           "VRULE:".($now-7200)."#008877:120 Minutes ago";
 
     if ($ERROR = RRDs::error) {
-      print "ERROR: $ERROR\n";
+      die "ERROR: $ERROR\n";
     } else {
       print "Image Size: ${xs}x${ys}\n";
       print "Graph Return:\n",(join "\n", @$graphret),"\n\n";
@@ -154,7 +154,7 @@ for (my $i=0;$i<$GRUNS;$i++) {
 
 my ($start,$step,$names,$array) = RRDs::fetch $RRD1, "AVERAGE";
 $ERROR = RRDs::error;
-print "ERROR: $ERROR\n" if $ERROR ;
+die "ERROR: $ERROR\n" if $ERROR ;
 print "start=$start, step=$step\n";
 print "                    "; 
 map {printf("%12s",$_)} @$names ;

diff --git a/program/examples/stripes.pl.in b/program/examples/stripes.pl.in
index 5187a56cdf0130930162a6edc1ae5436c2579f4e..362f4992e02743559107dda00b912721c6e982bc 100755 (executable)
--- a/program/examples/stripes.pl.in
+++ b/program/examples/stripes.pl.in
@@ -38,7 +38,7 @@ RRDs::graph "stripes.png",
   "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";
 };