Changeset 497 for locker/update-system/bin/propose-update
- Timestamp:
- Oct 16, 2007, 11:20:19 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
locker/update-system/bin/propose-update
r446 r497 46 46 my $cwd = cwd(); 47 47 chdir($dir) or die $!; 48 `athrun scripts gtar zxf "/mit/scripts/deploy$scriptsdev/$package.tar.gz"`; $? && die "Failed to unpack $package.tar.gz: $?"; 48 `athrun scripts gtar zxf "/mit/scripts/deploy$scriptsdev/$package/$package.tar.gz"`; 49 if ($?) { chdir($cwd); system("rmdir", "$dir"); die "Failed to unpack $package.tar.gz: $?"; } 49 50 my @files=`athrun scripts gfind . -mindepth 1 -maxdepth 1 | grep -v .admin`; 50 51 if (@files <= 1) { … … 67 68 my @aonly, @bonly, @both; 68 69 $a = $b = 0; 69 my $debug = 1;70 my $debug = 0; 70 71 local $Data::Dumper::Indent = 0; 71 72 while ($a <= $#a || $b <= $#a) {
Note: See TracChangeset
for help on using the changeset viewer.