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";
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 *=> .*)'.*',/ ) {