diff options
Diffstat (limited to 'infrastructure/makedistribution.pl.in')
-rwxr-xr-x | infrastructure/makedistribution.pl.in | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/infrastructure/makedistribution.pl.in b/infrastructure/makedistribution.pl.in index 3914780a..e7789a3e 100755 --- a/infrastructure/makedistribution.pl.in +++ b/infrastructure/makedistribution.pl.in @@ -202,8 +202,8 @@ sub copy_file # print "source copy $fn to $base_name/$dst_fn\n"; my $in = gensym; - open $in,$fn; - open OUT,">$base_name/$dst_fn"; + open $in,$fn or die "$fn: $!"; + open OUT,">$base_name/$dst_fn" or die "$base_name/$dst_fn: $!"; my $first = <$in>; if($first =~ m/\A#!/) @@ -241,8 +241,8 @@ sub copy_file # print "text copy $fn to $base_name/$dst_fn\n"; my $in = gensym; - open $in,$fn; - open OUT,">$base_name/$dst_fn"; + open $in,$fn or die "$fn: $!"; + open OUT,">$base_name/$dst_fn" or die "$base_name/$dst_fn: $!"; while(<$in>) { |