die if cannot open output or exception files
authorGalen Charlton <gmc@esilibrary.com>
Fri, 12 Nov 2010 15:18:55 +0000 (15:18 +0000)
committerGalen Charlton <gmc@esilibrary.com>
Mon, 16 Jul 2012 15:29:57 +0000 (11:29 -0400)
Signed-off-by: Galen Charlton <gmc@esilibrary.com>

fingerprinter

index 55b5f33..4318340 100755 (executable)
@@ -16,8 +16,8 @@ $| = 1;
 
 initialize($conf);
 
-open OF, '>', $conf->{output};
-open XF, '>', $conf->{exception};
+open OF, '>', $conf->{output} or die "$0: cannot open output file $conf->{output}: $!\n";
+open XF, '>', $conf->{exception} or die "$0: cannot open exception file $conf->{output}: $!\n";
 
 for my $file (@ARGV) {
     print XF "Processing $file\n";