From 9e4f3cacf4ad0f1e981bd303b0eae5730ce120e9 Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@indexdata.dk>
Date: Wed, 14 Apr 2010 12:28:54 +0000
Subject: [PATCH] always test if file open succeeded

---
 bin/irspy-dump.pl |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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