Subversion Repositories DevTools

Rev

Rev 4549 | Rev 4634 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4549 Rev 4633
Line 29... Line 29...
29 
use File::Path;
 29 
use File::Path;
30 
use File::Copy;
 30 
use File::Copy;
31 
use Pod::Usage;
 31 
use Pod::Usage;
32 
use Digest::MD5;
 32 
use Digest::MD5;
33 
use XML::Simple;
 33 
use XML::Simple;
- 
 
 34 
use Encode qw(decode encode);
34 
 
 35 
 
35 
use JatsError;
 36 
use JatsError;
36 
use JatsEnv;
 37 
use JatsEnv;
37 
use DescPkg;
 38 
use DescPkg;
38 
use FileUtils;
 39 
use FileUtils;
Line 152... Line 153...
152 
 
 153 
 
153 
    $target =~ s~$DPKG_DIR~~;
 154 
    $target =~ s~$DPKG_DIR~~;
154 
    $target =~ s~^/~~;
 155 
    $target =~ s~^/~~;
155 
    $target =~ s~/$~~;
 156 
    $target =~ s~/$~~;
156 
 
 157 
 
- 
 
 158 
    #
- 
 
 159 
    #   Convert from iso-8859-1 into utf-8
- 
 
 160 
    #
- 
 
 161 
    $target = decode( 'iso-8859-1', $target );
- 
 
 162 
    $target = encode( 'utf-8', $target );
- 
 
 163 
 
157 
    if ($type eq 'dir')
 164 
    if ($type eq 'dir')
158 
    {
 165 
    {
159 
        $data{path} = $target;
 166 
        $data{path} = $target;
160 
    }
 167 
    }
161 
    else
 168 
    else