Changeset 18341

Timestamp:

2009-01-09T18:05:25+13:00 (15 years ago)

Author:

ak19

Message:

Moved use of MIME::base64 encoding method to unicode.pm

File:

• gsdl/trunk/perllib/util.pm (modified) (2 diffs)

gsdl/trunk/perllib/util.pm

@@ -28 +28 @@
 use File::Copy;
 use File::Basename;
-use MIME::Base64; # for base64 encoding
 
 use strict;
@@ -1033 +1032 @@
     }
     elsif ($rename_method eq "base64") {
-    $tailname = &MIME::Base64::encode_base64($tailname);
+    $tailname = &unicode::base64_encode($tailname);
     $tailname =~ s/\s*//sg;      # for some reason it adds spaces not just at end but also in middle
     }