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

Timestamp:

2009-01-16T18:23:59+13:00 (15 years ago)

Author:

ak19

Message:

1. BasePlugin's file_rename_method option changed from inherited to none; 2. unicode::filename_to_url subroutine no longer takes rename_method as a parameter (back to how it was before).

File:

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

gsdl/trunk/perllib/util.pm

@@ -1026 +1026 @@
     my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(1);
     print STDERR "Calling method: $cfilename:$cline $cpackage->$csubr\n";
+    } elsif($rename_method eq "none") {
+    return $filename; # would have already been renamed
     }