Return to lonretrieve.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.21, 2003/02/03 18:03:53 | version 1.22, 2003/05/19 21:53:03 |
---|---|
Line 77 sub phaseone { | Line 77 sub phaseone { |
my $filename; | my $filename; |
opendir(DIR,$resdir); | opendir(DIR,$resdir); |
while ($filename=readdir(DIR)) { | while ($filename=readdir(DIR)) { |
if ($filename=~/^$main\.(\d+)\.$suffix$/) { | if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) { |
my $version=$1; | my $version=$1; |
my ($rdev,$rino,$rmode,$rnlink, | my ($rdev,$rino,$rmode,$rnlink, |
$ruid,$rgid,$rrdev,$rsize, | $ruid,$rgid,$rrdev,$rsize, |