From: Wolfram Schneider <wosch@indexdata.dk>
Date: Wed, 14 Apr 2010 12:28:54 +0000 (+0000)
Subject: always test if file open succeeded
X-Git-Tag: CPAN-v1.02~142
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=9e4f3cacf4ad0f1e981bd303b0eae5730ce120e9

always test if file open succeeded
---

diff --git a/bin/irspy-dump.pl b/bin/irspy-dump.pl
index 4e62a8b..e112b91 100755
--- a/bin/irspy-dump.pl
+++ b/bin/irspy-dump.pl
@@ -33,7 +33,7 @@ foreach my $i (1..$n) {
     print " $i/$n (", int($i*100/$n), "%)\n" if $i % $step == 0;
     my $rec = $rs->record($i-1);
     my $xml = $rec->render();
-    open F, ">$i.xml";
+    open F, ">$i.xml" or die "open $i.xml: $!\n";
     print F $xml;
     close F;
 }