bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-04-04 08:13:24 -04:00
Code Issues Projects Releases Wiki Activity

Fixed errors that occurred when a non-existent file would trip up the

Browse Source 
stricter requirements for the newer perl 5.8.
This commit is contained in:
freesource 2005-01-05 21:50:59 +00:00
parent 27c15ccf9f
commit a16a8c79c5
1 changed files with 49 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bin/imswim
View File

@ -52,7 +52,7 @@ line.
print STDERR "swim: imswim requires arguments, see program for instructions\n"; print STDERR "swim: imswim requires arguments, see program for instructions\n";
exit; exit;
} }
else { else {
$| = 1; my $x = 1; $| = 1; my $x = 1;
open(FILEDIR, ">$ARGV[1]/filedir.deb") open(FILEDIR, ">$ARGV[1]/filedir.deb")
or warn "could not create filedir.deb\n"; or warn "could not create filedir.deb\n";
@ -60,6 +60,7 @@ line.
while (<TRANSFER>) { while (<TRANSFER>) {
chomp; chomp;
my @the = split(/_/, $_); my @the = split(/_/, $_);
if (-e "$ARGV[0]/$the[0].list") {
open (LIST, "$ARGV[0]/$the[0].list") open (LIST, "$ARGV[0]/$the[0].list")
or warn "could not file *list"; or warn "could not file *list";
chomp; chomp;
@ -98,8 +99,9 @@ line.
} }
$count = 1; $count = 1;
print FILEDIR "$_ -> $the[0]_$the[1]\n"; print FILEDIR "$_ -> $the[0]_$the[1]\n";
} # if *list exists
} # foreach @count } # foreach @count
} # while TRANSFER } # while TRANSFER
close(TRANSFER); close(TRANSFER);
close(FILEDIR); close(FILEDIR);
} # else } # else