[ create a new paste ] login | about

Link: http://codepad.org/y6rHc9Xe    [ raw code | fork ]

Perl, pasted on Apr 17:
1
2
3
4
5
6
7
8
9
10
11
12
for my $module (</home/ben/projects/*>) {
    if (-f "$module/Makefile.PL") {
        # open file
        # Add the "META-MERGE" lines
        s/(WriteMakefile\s*\()/$1\nMETA_MERGE => /;
        # Write file
        chdir $module or die $!;
        system ("perl-reversion -bump");
        system ("perl Makefile.PL;make dist");
        system ("cpan-upload");
    }
}


Create a new paste based on this one


Comments: