![[BACK]](/icons/back.gif){kind=icon}
Return to lonretrieve.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
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, |