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=419ded94e62f86cf55e18200d209f8a06704ff91;hpb=1692103d4ad65acff3af4601e82d13d4119a142c

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