From e8cc43a7b71a7f4074fd9fd4fc569b3807e3a1b6 Mon Sep 17 00:00:00 2001 From: "James E. Keenan" Date: Sat, 13 Mar 2010 10:31:15 -0500 Subject: [PATCH] Correct ambiguous regex capture syntax. --- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index efdcfc1..ec4969d 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -34,9 +34,9 @@ our ( $proto_in_this_xsub, $scope_in_this_xsub, $interface, $interface_macro, $interface_macro_set, $ProtoThisXSUB, $ScopeThisXSUB, @line_no, $ret_type, $func_name, $Full_func_name, $Packprefix, $Packid, - %XsubAliases, %XsubAliasValues, %Interfaces, @Attributes, %outargs, - $pname, + %XsubAliases, %XsubAliasValues, %Interfaces, @Attributes, %outargs, $pname, ); +#our $DoSetMagic; sub process_file { @@ -524,7 +524,7 @@ EOF for ( @args ) { s/^\s+//; s/\s+$//; - my ($arg, $default) = / ( [^=]* ) ( (?: = .* )? ) /x; + my ($arg, $default) = ($_ =~ m/ ( [^=]* ) ( (?: = .* )? ) /x); my ($pre, $name) = ($arg =~ /(.*?) \s* \b ( \w+ | length\( \s*\w+\s* \) ) \s* $ /x); -- 2.7.4