This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Forgot an OVERLOAD character in xsubpp
authorJohn Peacock <jpeacock@rowman.com>
Fri, 8 Mar 2002 15:52:41 +0000 (10:52 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 8 Mar 2002 20:07:07 +0000 (20:07 +0000)
Message-ID: <3C892499.4050502@rowman.com>

p4raw-id: //depot/perl@15118

lib/ExtUtils/xsubpp

index fe2527c..55dd1a4 100755 (executable)
@@ -602,7 +602,7 @@ sub OVERLOAD_handler()
     for (;  !/^$BLOCK_re/o;  $_ = shift(@line)) {
        next unless /\S/;
        TrimWhitespace($_) ;
-        while ( s/^\s*([\w:"\\)\+\-\*\/\%\<\>\.\&\|\^\!\~\{\}]+)\s*//) {
+        while ( s/^\s*([\w:"\\)\+\-\*\/\%\<\>\.\&\|\^\!\~\{\}\=]+)\s*//) {
            $Overload = 1 unless $Overload;
            my $overload = "$Package\::(".$1 ;
             push(@InitFileCode,