Changeset 16580 for gsdl/trunk/perllib/plugins/ConvertToRogPlugin.pm

Timestamp:

2008-07-29T13:29:21+12:00 (16 years ago)

Author:

ak19

Message:

Shared subroutine tmp_area_convert_file now ensures that the tailname of the file is utf8 by calling superclass BasePlugin's filepath_to_utf8 on it.

File:

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

gsdl/trunk/perllib/plugins/ConvertToRogPlugin.pm

@@ -104 +104 @@
     # Remove any white space from filename -- no risk of name collision, and
     # makes later conversion by utils simpler. Leave spaces in path...
-    $tailname =~ s/\s+//g; 
+    $tailname =~ s/\s+//g;
+    $tailname = $self->SUPER::filepath_to_utf8($tailname) unless &unicode::check_is_utf8($tailname);
 
     my $tmp_filename = &util::filename_cat($tmp_dirname, "$tailname$suffix");