Changeset 11896

Timestamp:

2006-05-31T16:36:27+12:00 (18 years ago)

Author:

kjdon

Message:

fixed line 521 - matching on a windows path gives an error like can't find unicode character property, because it has \Pr in it. so changes the match to an eq

File:

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

trunk/gsdl/perllib/docsave.pm

@@ -519 +519 @@
 
         if ($save_as eq "DSpace") {
-        if ($real_filename =~ m/$source_filename$/) {
+        if ($real_filename eq $source_filename) {
             next;
         }