Changeset 18329 for gsdl/trunk/perllib

Timestamp:

2009-01-07T18:46:48+13:00 (15 years ago)

Author:

ak19

Message:

Subroutine rename_file now returns prematurely if no filename is specified (e.g. empty string). This can happen, as one plugin actually creates a new doc() with an empty string filename which then calls this subroutine with it.

File:

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

gsdl/trunk/perllib/util.pm

@@ -999 +999 @@
 sub rename_file {
     my ($filename, $rename_method)  = @_;
-    
+
+    if(!$filename) { # for example, empty string
+    return $filename;
+    }
+  
     my ($tailname,$dirname,$suffix) = File::Basename::fileparse($filename, "\\.[^\\.]+\$");