Change 35020 by [EMAIL PROTECTED] on 2008/12/05 21:18:07
Integrate:
[ 34116]
Subject: [Patch t/op/re_tests] Re: [perl #56690] Some bugs in Perl
regexp (core Perl issues)
From: Abigail <[EMAIL PROTECTED]>
Date: Tue, 8 Jul 2008 18:48:37 +0200
Message-ID: <[EMAIL PROTECTED]>
[ 34131]
Set d_timegm on VMS.
Affected files ...
... //depot/maint-5.10/perl/configure.com#11 integrate
... //depot/maint-5.10/perl/t/op/re_tests#7 integrate
Differences ...
==== //depot/maint-5.10/perl/configure.com#11 (text) ====
Index: perl/configure.com
--- perl/configure.com#10~34563~ 2008-10-23 13:49:57.000000000 -0700
+++ perl/configure.com 2008-12-05 13:18:07.000000000 -0800
@@ -6135,6 +6135,7 @@
$ WC "d_telldir='define'"
$ WC "d_telldirproto='define'"
$ WC "d_time='define'"
+$ WC "d_timegm='undef'"
$ WC "d_times='define'"
$ IF ("''F$EXTRACT(1,3, F$GETSYI(""VERSION""))'".GES."7.0")
$ THEN
==== //depot/maint-5.10/perl/t/op/re_tests#7 (text) ====
Index: perl/t/op/re_tests
--- perl/t/op/re_tests#6~34427~ 2008-09-26 13:09:59.000000000 -0700
+++ perl/t/op/re_tests 2008-12-05 13:18:07.000000000 -0800
@@ -1344,6 +1344,9 @@
.*?(?:(\w)|(\w))x abx y $1-$2 b-
0{50} 000000000000000000000000000000000000000000000000000 y -
-
+# Bug #56690
+^a?(?=b)b ab B $& ab
+^a*(?=b)b ab B $& ab
# Two regressions in 5.8.x (only) introduced by change 30638
End of Patch.
