diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2006-03-15 18:48:14 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2006-03-15 18:48:14 +0000 |
commit | 55d597732b7da4bb2b326ef1f83f4d773d97bbfe (patch) | |
tree | e34e6a96a7ccebdd61c83b0018558292b85948ac /generate_export_header.pl | |
parent | 24db7006f6250f1d14a6cc720e8cf6609257d11f (diff) | |
download | MPC-55d597732b7da4bb2b326ef1f83f4d773d97bbfe.tar.gz |
ChangeLogTag: Wed Mar 15 18:44:03 UTC 2006 Chad Elliott <elliott_c@ociweb.com>
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 { |