Changeset 18341 for gsdl/trunk
- Timestamp:
- 2009-01-09T18:05:25+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/util.pm
r18337 r18341 28 28 use File::Copy; 29 29 use File::Basename; 30 use MIME::Base64; # for base64 encoding31 30 32 31 use strict; … … 1033 1032 } 1034 1033 elsif ($rename_method eq "base64") { 1035 $tailname = & MIME::Base64::encode_base64($tailname);1034 $tailname = &unicode::base64_encode($tailname); 1036 1035 $tailname =~ s/\s*//sg; # for some reason it adds spaces not just at end but also in middle 1037 1036 }
Note:
See TracChangeset
for help on using the changeset viewer.