Changeset 11919 for trunk/gsdl/perllib/plugins/RecPlug.pm

Timestamp:

2006-06-15T14:51:57+12:00 (18 years ago)

Author:

mdewsnip

Message:

Fixed some metadata_read code that was obviously not tested on Windows.

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -270 +270 @@
     my @extrametakeys;               # keys of %extrametadata in order read
 
-    my $dirsepre = &util::get_re_dirsep();
+    my $os_dirsep = &util::get_os_dirsep();
     my $dirsep    = &util::get_dirsep();
+    my $base_dir_regexp = $base_dir;
+    $base_dir_regexp =~ s/\//$os_dirsep/g;
     my $local_dirname = $dirname;
-    $local_dirname =~ s/^$base_dir($dirsepre)//;
+    $local_dirname =~ s/^$base_dir_regexp($os_dirsep)//;
     $local_dirname .= $dirsep;
 
@@ -326 +328 @@
 
     my $dirsep_re = &util::get_re_dirsep();
-
     if ($ek =~ m/$dirsep_re/) { # specifies at least one directory
         my $md = $extrametadata{$ek};