Changeset 84

Show
Ignore:
Timestamp:
01/20/07 20:30:00 (2 years ago)
Author:
ingy
Message:
 r3238@skinny-2:  ingy | 2007-01-20 20:29:46 -0800
 tweaks to rippod
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/src/plugins/cfedde/bin/rippod

    r74 r84  
    77use strict; 
    88use warnings; 
     9use lib 'lib'; 
    910use IO::All; 
    1011use File::Basename; 
    …… 
    2324    print "\t=> $dest\n"; 
    2425 
    25     my $bak = $file.".bak"; 
     26    # my $bak = $file.".bak"; 
     27    my $bak = "bak"; 
    2628    io($bak) < io($file); 
    2729 
    …… 
    3032    my $code = io $file or die $!; 
    3133    my $src  = io $bak or die $!; 
     34 
     35    my $c = ''; 
     36    my $p = ''; 
    3237 
    3338    my $in_pod = 0; 
    …… 
    3843 
    3944        if($in_pod) { 
    40            $pod->print($l); 
     45            $p .= $l; 
    4146        } else { 
    42            $code->print($l); 
     47            $c .= $l; 
    4348        } 
    4449 
    …… 
    4651            $in_pod = 0; 
    4752        } 
     53    } 
     54    $p =~ s/^=cut\s+\z//m; 
     55    $c =~ s/^__DATA__\s+\z//m; 
     56    $c =~ s/^__END__\s+\z//m; 
     57    $p =~ s/\s+\z/\n/; 
     58    $c =~ s/\s+\z/\n/; 
     59    $pod->print($p); 
     60    $code->print($c); 
    4861 
    49     } 
    5062    $_->close for ($pod, $src, $code); 
    5163}