Changeset 18341 for gsdl


Ignore:
Timestamp:
01/09/09 18:05:25 (12 years ago)
Author:
ak19
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r18337 r18341  
    2828use File::Copy;
    2929use File::Basename;
    30 use MIME::Base64; # for base64 encoding
    3130
    3231use strict;
     
    10331032    }
    10341033    elsif ($rename_method eq "base64") {
    1035     $tailname = &MIME::Base64::encode_base64($tailname);
     1034    $tailname = &unicode::base64_encode($tailname);
    10361035    $tailname =~ s/\s*//sg;      # for some reason it adds spaces not just at end but also in middle
    10371036    }
Note: See TracChangeset for help on using the changeset viewer.