[Box Backup-commit] COMMIT r2574 - in box/trunk: distribution infrastructure

[subversion at boxbackup.org]

Author: chris
Date: 2009-09-22 00:34:54 +0100 (Tue, 22 Sep 2009)
New Revision: 2574

Modified:
   box/trunk/distribution/COMMON-MANIFEST.txt
   box/trunk/infrastructure/makedistribution.pl.in
Log:
Check that source and text file copies are successful.

Fix missing docs/common in common manifest.


Modified: box/trunk/distribution/COMMON-MANIFEST.txt
===================================================================
--- box/trunk/distribution/COMMON-MANIFEST.txt	2009-09-21 23:33:11 UTC (rev 2573)
+++ box/trunk/distribution/COMMON-MANIFEST.txt	2009-09-21 23:34:54 UTC (rev 2574)
@@ -13,6 +13,7 @@
 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

Modified: box/trunk/infrastructure/makedistribution.pl.in
===================================================================
--- box/trunk/infrastructure/makedistribution.pl.in	2009-09-21 23:33:11 UTC (rev 2573)
+++ box/trunk/infrastructure/makedistribution.pl.in	2009-09-21 23:34:54 UTC (rev 2574)
@@ -202,8 +202,8 @@
 		# 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 @@
 		# 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>)
 		{