Changeset 340


Ignore:
Timestamp:
01/24/11 11:07:59 (13 years ago)
Author:
nanardon
Message:
  • reencode only spec file
File:
1 edited

Legend:

Unmodified
Added
Removed
  • server/trunk/web/lib/Sophie/Scan/RpmParser/Sources.pm

    r339 r340  
    4545 
    4646            my $content; 
    47             foreach my $line (split("\n", $rawcontent)) { 
    48                 my $enc = guess_encoding($line, qw/latin1/); 
    49                 if ($enc && ref $enc) { 
    50                     $content .= $enc->decode($line) . "\n"; 
    51                 } else { 
    52                     $content .= $line . "\n"; 
     47            if ($fname =~ /\.spec$/) { 
     48                foreach my $line (split("\n", $rawcontent)) { 
     49                    my $enc = guess_encoding($line, qw/latin1/); 
     50                    if ($enc && ref $enc) { 
     51                        $content .= $enc->decode($line) . "\n"; 
     52                    } else { 
     53                        $content .= $line . "\n"; 
     54                    } 
    5355                } 
     56            } else { 
     57                $content = $rawcontent; 
    5458            } 
    5559            eval { 
Note: See TracChangeset for help on using the changeset viewer.