Forgot an OVERLOAD character in xsubpp

Message-ID: <3C892499.4050502@rowman.com>

p4raw-id: //depot/perl@15118

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index fe2527c..55dd1a4 100755 (executable)
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -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,