bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2026-09-16 08:31:39 -04:00
Code Issues Projects Releases Wiki Activity

Makes sure these programs do backups for info in the right place.

Browse Source
This commit is contained in:
freesource
2001-10-13 00:38:29 +00:00
parent 948c04b550
commit 4fc38f64a1
2 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/fastswim
+4 -4
View File
@@ -47,7 +47,6 @@ my $temp;
my %HL;
my @name;
my %version;
my $home = $ENV{'HOME'} . "/";
#$| = 1;
#$#name = 2000;
@@ -115,9 +114,10 @@ my $home = $ENV{'HOME'} . "/";
# humm let's rebuild the offending backup list, this
# is important for --db.
unshift(@redolist,"/.");
open(REDOLIST, ">$home$ARGV[1]/backup/$thingy.bk.bk")
open(REDOLIST, ">$ARGV[3]/$ARGV[1]/backup/$thingy.bk.bk")
or warn "needed to edit $thingy because it lacked /.,
but could not open up a backup file\n";
but could not open up a backup file
$ARGV[3]/$ARGV[1]/backup/$thingy.bk.bk\n";
my $rd;
foreach $rd (@redolist) {
chomp $rd;
@@ -125,7 +125,7 @@ my $home = $ENV{'HOME'} . "/";
}
close(REDOLIST);
rename
("$ARGV[1]/backup/$thingy.bk.bk","$ARGV[1]/backup/$thingy.bk");
("$ARGV[3]/$ARGV[1]/backup/$thingy.bk.bk","$ARGV[3]/$ARGV[1]/backup/$thingy.bk");
$_ = "/.";
}
}