diff options
author | Fred Hornsey <fred@hornsey.us> | 2020-03-11 23:47:26 -0500 |
---|---|---|
committer | Fred Hornsey <fred@hornsey.us> | 2020-03-11 23:51:08 -0500 |
commit | 07ebce270f9b28cb92c396310e44ca9463cb620b (patch) | |
tree | 1f0bc3989d6285e7881c42986057fcf72312ecba /modules | |
parent | cb7bb9393707341beac8908db9c600080cc85fa3 (diff) | |
download | MPC-07ebce270f9b28cb92c396310e44ca9463cb620b.tar.gz |
Use $! When Output File Creation Failed
Otherwise it just says it failed with no reason given.
Diffstat (limited to 'modules')
-rw-r--r-- | modules/ProjectCreator.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/modules/ProjectCreator.pm b/modules/ProjectCreator.pm index 68fabad5..f4977a65 100644 --- a/modules/ProjectCreator.pm +++ b/modules/ProjectCreator.pm @@ -4913,7 +4913,7 @@ sub write_output_file { $different = 0 if (!$self->files_are_different($name, $tmp)); } else { - $error = "Unable to open $tmp for output."; + $error = "Unable to open $tmp for output: $!"; $status = 0; last; } @@ -4929,7 +4929,7 @@ sub write_output_file { } } else { - $error = "Unable to open $name for output."; + $error = "Unable to open $name for output: $!"; $status = 0; last; } @@ -4953,7 +4953,7 @@ sub write_output_file { } } else { - $error = "Unable to open $name for output."; + $error = "Unable to open $name for output: $!"; $status = 0; last; } |