File: unsafe.PL

package info (click to toggle)
rename 2.02-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 312 kB
  • sloc: perl: 439; sh: 12; makefile: 11
file content (20 lines) | stat: -rw-r--r-- 466 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
use strict;
use warnings;

use File::Basename qw(dirname);
use File::Path qw(mkpath);

my($file, $from) = @ARGV;
unless( -d( my $dir = dirname $file ) ) { mkpath $dir, 1 }

open my $IN, '<', $from or die "$0 can't open $from: $!\n";
open my $OUT, '>', $file or die "$0 can't open $file: $!\n";
select $OUT;

while( <$IN> ) {
    s/;\s+\#\s+REQUIRE_ORDER\b/ qw(:config no_require_order);/;
    print;
}

close $OUT or die $!;
close $IN or die $!;