Changeset 17512 for gsdl/trunk/perllib

Timestamp:

2008-10-09T14:44:09+13:00 (16 years ago)

Author:

kjdon

Message:

added a method to turn windows filename paths (with single back slash) into a form suitable for use in a regular expression (with double backslash)

File:

• gsdl/trunk/perllib/util.pm (modified) (1 diff)

gsdl/trunk/perllib/util.pm

@@ -594 +594 @@
 }
 
+sub filename_to_regex {
+    my $filename = shift (@_);
+
+    # need to put single backslash back to double so that regex works
+    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+    $filename =~ s/\\/\\\\/g;
+    }
+    return $filename;
+}
 
 sub filename_cat {