diff options
Diffstat (limited to 'generate_export_header.pl')
-rwxr-xr-x | generate_export_header.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generate_export_header.pl b/generate_export_header.pl index f6e8d6cd..9fd7545a 100755 --- a/generate_export_header.pl +++ b/generate_export_header.pl @@ -32,6 +32,7 @@ sub generate_export_header { my($name) = shift; my($output) = shift; my($fh) = new FileHandle(); + my($status) = 0; if (open($fh, ">$output")) { $name = uc($name); @@ -79,6 +80,12 @@ EOM close($fh); print "Output written to $output\n"; } + else { + print STDERR "ERROR: Unable to write to $output\n"; + ++$status; + } + + return $status; } sub usageAndExit { |