Changeset 15088 for gsdl/trunk/perllib/util.pm

Timestamp:

2008-03-17T14:59:28+13:00 (16 years ago)

Author:

kjdon

Message:

changed reg exp to use split and pop instead due to not working under windows

File:

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

gsdl/trunk/perllib/util.pm

@@ -710 +710 @@
     #              a/b/c => c
 
-    my $dirsep = get_dirsep();
-    
-    my ($tail) = ($filename =~ m/^(?:.*?$dirsep)?(.*?)$/);
+    my $dirsep = get_re_dirsep();
+    my @dirs = split (/$dirsep/, $filename);
+    my $tail = pop @dirs;
+
+    # - caused problems under windows
+    #my ($tail) = ($filename =~ m/^(?:.*?$dirsep)?(.*?)$/); 
 
     return $tail;