| Subject: | vlpatch and vldiff have syntax erorrs |
dom@callisto:/tmp/VCS-Lite-0.06/scripts$ perl ./vldiff.pl
syntax error at ./vldiff.pl line 39, near "/(\d+)/ {"
Execution of ./vldiff.pl aborted due to compilation errors.
dom@callisto:/tmp/VCS-Lite-0.06/scripts$ perl ./vlpatch.pl
Missing comma after first argument to rename function at ./vlpatch.pl line 35, near ""$orig.orig";"
Execution of ./vlpatch.pl aborted due to compilation errors.
Patch attached.
--- /tmp/VCS-Lite-0.06/scripts/vldiff.pl 2004-12-29 08:48:06.000000000 +0000
+++ scripts/vldiff.pl 2005-03-26 14:23:10.000000000 +0000
@@ -36,7 +36,7 @@
if ($wintxt =~ /(\d+),(\d+)/) {
$win = [$1,$2];
}
-elsif ($wintxt =~ /(\d+)/ {
+elsif ($wintxt =~ /(\d+)/) {
$win = $1;
}
--- /tmp/VCS-Lite-0.06/scripts/vlpatch.pl 2003-04-20 07:54:54.000000000 +0100
+++ scripts/vlpatch.pl 2005-03-26 14:22:30.000000000 +0000
@@ -32,7 +32,7 @@
my $chg = $el1->patch($dt1) or die "Patch failed";
if (!$output) {
- rename $orig "$orig.orig";
+ rename $orig, "$orig.orig";
$output = $orig;
}