Changeset 17512 for gsdl/trunk/perllib/util.pm
- Timestamp:
- 2008-10-09T14:44:09+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/util.pm
r17204 r17512 594 594 } 595 595 596 sub filename_to_regex { 597 my $filename = shift (@_); 598 599 # need to put single backslash back to double so that regex works 600 if ($ENV{'GSDLOS'} =~ /^windows$/i) { 601 $filename =~ s/\\/\\\\/g; 602 } 603 return $filename; 604 } 596 605 597 606 sub filename_cat {
Note:
See TracChangeset
for help on using the changeset viewer.