|
|
@ -7,6 +7,7 @@ my $ver = shift or usage();
|
|
|
|
my $newver = shift or usage();
|
|
|
|
my $newver = shift or usage();
|
|
|
|
|
|
|
|
|
|
|
|
my $newdir = "patches/nginx/$newver";
|
|
|
|
my $newdir = "patches/nginx/$newver";
|
|
|
|
|
|
|
|
system("mkdir -p $newdir") == 0 or die "failed to create directory $newdir: $!\n";
|
|
|
|
my @files = `find patches -name '*.patch'`;
|
|
|
|
my @files = `find patches -name '*.patch'`;
|
|
|
|
for my $file (@files) {
|
|
|
|
for my $file (@files) {
|
|
|
|
chomp $file;
|
|
|
|
chomp $file;
|
|
|
@ -14,11 +15,6 @@ for my $file (@files) {
|
|
|
|
(my $newfile = $file) =~ s{nginx/$ver/}{nginx/$newver/}g;
|
|
|
|
(my $newfile = $file) =~ s{nginx/$ver/}{nginx/$newver/}g;
|
|
|
|
$newfile =~ s/nginx-$ver-/nginx-$newver-/g;
|
|
|
|
$newfile =~ s/nginx-$ver-/nginx-$newver-/g;
|
|
|
|
if ($newfile ne $file && !-f $newfile) {
|
|
|
|
if ($newfile ne $file && !-f $newfile) {
|
|
|
|
unless (-d $newdir) {
|
|
|
|
|
|
|
|
system("mkdir -p $newdir") == 0
|
|
|
|
|
|
|
|
or die "failed to create directory $newdir: $!\n";
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $cmd = "cp $file $newfile";
|
|
|
|
my $cmd = "cp $file $newfile";
|
|
|
|
system($cmd) == 0
|
|
|
|
system($cmd) == 0
|
|
|
|
or die "failed run command $cmd.\n";
|
|
|
|
or die "failed run command $cmd.\n";
|
|
|
|