Changeset 27982

Timestamp:

2013-08-06T09:03:56+12:00 (11 years ago)

Author:

sjm84

Message:

Fixed an error that was occuring on Windows due to backslashes

File:

• main/trunk/greenstone2/perllib/plugins/BaseMediaConverter.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/BaseMediaConverter.pm

@@ -92 +92 @@
     # Work out relative filename within 'base_dir'
     $filename =~ s/\\/\//g;
+    $base_dir =~ s/\\/\//g;
     my ($file) = ($filename =~ m/^$base_dir(.*?)$/);