5 use Carp qw/carp confess/;
7 use Data::Dump qw/dump/;
13 my $dir = $1 if $file =~ s{(^.+)/[^/]+}{$1};
14 if ( $dir && ! -d $dir ) {
16 File::Path::mkpath $dir;
21 my ( $file, $content ) = @_;
25 write_file $file, $content;
27 carp "## append created $size bytes in $file";
31 my $on_disk = read_file $file;
33 my $relaxed_content = $content;
34 $relaxed_content =~ s{\s+}{\\s+}gs;
36 if ( $on_disk !~ m{$relaxed_content} ) {
38 # $content =~ s{^[\n\r]+}{\n}s;
39 # $content =~ s{[\n\r]*$}{\n}s;
41 if ( $on_disk =~ s{([\s+]exit[\s\d]*)$}{\n$content\n$1}s ) {
42 # warn "# insert $file\n$on_disk";
43 write_file $file, $on_disk;
45 # warn "# append $file\n$content\n";
46 open($fh, '>>', $file);
51 carp "## append to $file";
57 my ( $file, $from, $to ) = @_;
59 my $content = read_file $file;
60 if ( $content =~ s{$from}{$to}s ) {
61 write_file $file, $content;
62 carp "## change $file $from => $to" if $debug;
64 } elsif ( $content !~ m{$to}s ) {
65 confess "can't find $from to change into $to in $file in ",dump( $content );
70 my ( $file, $content ) = @_;
72 write_file $file, $content;
76 my ( $from, $to ) = @_;
77 die "no destination" unless $to;
80 my $perm = (stat $from)[2];
81 carp "# copy_once $from => $to $perm";
82 write_file $to, read_file($from);