X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Firspy-dump.pl;h=e112b917e5945b4398f5c67d91eb1a13e35f04ae;hp=4e62a8b551446ee70a0c382ed86eec6e0724e0e4;hb=9e4f3cacf4ad0f1e981bd303b0eae5730ce120e9;hpb=da12d1ce1cae31bd75db81cd0ce5171c392f15f4

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;
 }