From b2ffc56814a6e798f6d6618945fa5efb61ff3261 Mon Sep 17 00:00:00 2001 From: Chris Wilson Date: Mon, 21 Sep 2009 23:34:54 +0000 Subject: Check that source and text file copies are successful. Fix missing docs/common in common manifest. --- distribution/COMMON-MANIFEST.txt | 1 + infrastructure/makedistribution.pl.in | 8 ++++---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/distribution/COMMON-MANIFEST.txt b/distribution/COMMON-MANIFEST.txt index 34c3cffa..a21abe20 100644 --- a/distribution/COMMON-MANIFEST.txt +++ b/distribution/COMMON-MANIFEST.txt @@ -13,6 +13,7 @@ test/crypto test/compress test/win32 docs/api-notes +docs/api-notes/common docs/api-notes/common/lib_common.txt docs/api-notes/common/lib_crypto docs/api-notes/common/lib_server 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>) { -- cgit v1.2.3