Perl 5.8.3 patches from the BS2000 port

Message-ID: <6727B1DACFCDD311A757009027CA8D69044B673A@Ex02.inhouse.start.de>

p4raw-id: //depot/perl@21938

diff --git a/hints/posix-bc.sh b/hints/posix-bc.sh
index 006323f..00c1cc9 100644 (file)
--- a/hints/posix-bc.sh
+++ b/hints/posix-bc.sh
@@ -23,7 +23,7 @@ esac
 # -DUSE_PURE_BISON
 # -D_XOPEN_SOURCE_EXTENDED alters system headers.
 # Prepend your favorites with Configure -Dccflags=your_favorites
-ccflags="$ccflags -Kc_names_unlimited,enum_long,llm_case_lower,llm_keep,no_integer_overflow -DPOSIX_BC -DUSE_PURE_BISON -D_XOPEN_SOURCE_EXTENDED"
+ccflags="$ccflags -Kc_names_unlimited,enum_long,llm_case_lower,llm_keep,no_integer_overflow -DPOSIX_BC -DUSE_PURE_BISON -DYYMAXDEPTH=65000 -DYYINITDEPTH=1000 -D_XOPEN_SOURCE_EXTENDED"
 
 # Now, what kind of BS2000 system are we running on?
 echo

diff --git a/t/base/num.t b/t/base/num.t
index ccabe07..f915281 100644 (file)
--- a/t/base/num.t
+++ b/t/base/num.t
@@ -163,7 +163,10 @@ $a = 123.456; "$a";
 print $a eq "123.456" ? "ok 44\n" : "not ok 44 # $a\n";
 
 $a = 1e34; "$a";
-print $a eq "1e+34" || $a eq "1e+034" ? "ok 45\n" : "not ok 45 $a\n";
+unless ($^O eq 'posix-bc')
+{ print $a eq "1e+34" || $a eq "1e+034" ? "ok 45\n" : "not ok 45 $a\n"; }
+else
+{ print "ok 45 # skipped on $^O\n"; }
 
 # see bug #15073
 

diff --git a/t/comp/parser.t b/t/comp/parser.t
index ca191c2..c68f7ab 100644 (file)
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -128,7 +128,7 @@ EOF
 {
     local $SIG{__WARN__} = sub { }; # silence mandatory warning
     eval q{ my $x = -F 1; };
-    like( $@, qr/syntax error .* near "F 1"/, "unknown filetest operators" );
+    like( $@, qr/(?:syntax|parse) error .* near "F 1"/, "unknown filetest operators" );
     is(
         eval q{ sub F { 42 } -F 1 },
        '-42',