It works as expected for me and it's build 811. At this point I would take
it onto Bugtraq. Something's not right with ur build
C:\WINDOWS\Desktop>perl
$method = 'Modules("M6833x LA")';
$method =~ /(\S+)s\s*\(\s*(.+)\s*\)\s*$/;
$method = $1 . "s";
print( "POST METHOD [$method]\n" );
POST METHOD [Modules]
C:\WINDOWS\Desktop>perl -v
This is perl, v5.8.6 built for MSWin32-x86-multi-thread
(with 3 registered patches, see perl -V for more detail)
Copyright 1987-2004, Larry Wall
Binary build 811 provided by ActiveState Corp. http://www.ActiveState.com
ActiveState is a division of Sophos.
Built Dec 13 2004 09:52:01
At 03:38 PM 8/23/05 -0600, [EMAIL PROTECTED] wrote:
>Here is the problem.
>The $method variable contains 'Modules("M6833x LA")' and after
>evaluating the regular expression, $1 contains 'M6833x LA'.
>I would have expected $1 to contain 'Module is in the first case.
>Perl 5.6.1 Build 635 - error Never occurs
>Perl 5.8.3 Build 809 - error Always occurs
>Perl 5.8.7 Build 813 - error occurs on one machine, but does Not occur on
another
--
REMEMBER THE WORLD TRADE CENTER ---=< WTC 911 >=--
"...ne cede males"
00000100
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
