use File::Find;
use File::Path;
-my $BaseVersion = "2.1.0beta2";
-my $PatchLevel = "pl1";
+my $BaseVersion = "3.2.0";
+my $PatchLevel = "pl0";
my $PatchVersion = "$BaseVersion$PatchLevel";
my $Base = "/home/craig/admin/packages/BackupPC-$BaseVersion";
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 *=> .*)'.*',/ ) {