These test scripts probably wanted BEGIN blocks,

not just blocks with "BEGIN:" labels.

p4raw-id: //depot/perl@30971

diff --git a/t/comp/multiline.t b/t/comp/multiline.t
index 78820c4..e8b7cf4 100755 (executable)
--- a/t/comp/multiline.t
+++ b/t/comp/multiline.t
@@ -1,6 +1,6 @@
 #!./perl
 
-BEGIN: {
+BEGIN {
     chdir 't';
     @INC = '../lib';
     require './test.pl';

diff --git a/t/op/exec.t b/t/op/exec.t
index ed5b2b6..c23364b 100755 (executable)
--- a/t/op/exec.t
+++ b/t/op/exec.t
@@ -1,6 +1,6 @@
 #!./perl
 
-BEGIN: {
+BEGIN {
     chdir 't' if -d 't';
     @INC = ('../lib');
     require './test.pl';