diff options
author | Chris Wilson <chris+github@qwirx.com> | 2009-09-21 23:34:54 +0000 |
---|---|---|
committer | Chris Wilson <chris+github@qwirx.com> | 2009-09-21 23:34:54 +0000 |
commit | b2ffc56814a6e798f6d6618945fa5efb61ff3261 (patch) | |
tree | bffd02b52471bbb4e342165dd80dee9048a38396 /infrastructure/makedistribution.pl.in | |
parent | 63d00d2baceaf2349f9e8d12ef99861acdd0c332 (diff) |
Check that source and text file copies are successful.
Fix missing docs/common in common manifest.
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>) { |