use File::Find;
use File::Path;
-my $BaseVersion = "2.1.0beta2";
+my $BaseVersion = "2.1.2";
my $PatchLevel = "pl1";
my $PatchVersion = "$BaseVersion$PatchLevel";
EOF
foreach my $dir ( qw(bin lib cgi-bin) ) {
- open(DIFF, "diff -ur $Base/$dir $TmpDir/$dir|")
+ open(DIFF, "diff -ur -I '^# Version .*, released ' $Base/$dir $TmpDir/$dir|")
|| die("can't run diff\n");
while ( <DIFF> ) {
next if ( /^Only/ || /^diff / );
open(OUT, ">", "$TmpDir/$file")
|| die("Can't open $TmpDir/$file for output\n");
while ( <IN> ) {
- if ( /^use lib ".*BackupPC\/lib";/
+ if ( /^use lib ".*BackupPC[\d.]*\/lib";/
|| /^use lib "\/home\/pcbackup\/install\/lib";/ ) {
print OUT "use lib \"__INSTALLDIR__/lib\";\n";
} elsif ( $file =~ /Lib.pm/ && /(.*TopDir *=> .*)'.*',/ ) {