Changeset 18341

Show
Ignore:
Timestamp:
09.01.2009 18:05:25 (10 years ago)
Author:
ak19
Message:

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

Files:
1 modified

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    }