diff options
| author | Dorner Thomas <tdorner@amadeus.net> | 2003-12-17 16:41:17 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-20 22:56:24 +0000 |
| commit | 1a6a79b784525259ef3f326dcae7b68a3aaebb75 (patch) | |
| tree | 1279f9c237e39260de78ce9ed0e7317e9c35973c | |
| parent | a18b03821cf93f26cfdbfc7f3fa4c6617a44f121 (diff) | |
| download | perl-1a6a79b784525259ef3f326dcae7b68a3aaebb75.tar.gz | |
Perl 5.8.3 patches from the BS2000 port
Message-ID: <6727B1DACFCDD311A757009027CA8D69044B673A@Ex02.inhouse.start.de>
p4raw-id: //depot/perl@21938
| -rw-r--r-- | hints/posix-bc.sh | 2 | ||||
| -rw-r--r-- | t/base/num.t | 5 | ||||
| -rw-r--r-- | t/comp/parser.t | 2 |
3 files changed, 6 insertions, 3 deletions
diff --git a/hints/posix-bc.sh b/hints/posix-bc.sh index 006323fd25..00c1cc9ac5 100644 --- 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 ccabe0734b..f91528169e 100644 --- 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 ca191c2de0..c68f7ab5aa 100644 --- 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', |