ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

that didn't help

Browse source
This commit is contained in:
Ward Wouts 2002-01-19 22:21:21 +00:00
parent 4ab58ca073
commit 0e8d99ab70
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
mvwrap/mvwrap
View file

@ -53,7 +53,7 @@ sub read_cur_dir {
my (@dir, $filename);
opendir(DIRHANDLE, ".") or die "couldn't open .: $!";
while ( defined ($filename = readdir(DIRHANDLE)) ) {
unless (chomp($filename) eq "." | chomp($filename) eq "..") {
unless ($filename eq "." | $filename eq "..") {
push @dir, "$filename\n";
}
}
@ -220,7 +220,7 @@ sub paranoia {
foreach $ctarget (@$target) {
$safe = 0;
foreach $csource (@$source) {
if (chomp($ctarget) eq chomp($csource)) { $safe = 1; }
if ($ctarget eq $csource) { $safe = 1; }
}
chomp $ctarget;
if (! $safe && -e $ctarget) { die "That would overwrite files\n"; }