From: John Peacock <jpeacock@rowman.com>
Date: Fri, 8 Mar 2002 15:52:41 +0000 (-0500)
Subject: Forgot an OVERLOAD character in xsubpp
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=964097f73abcb725c604e0b240fca61061379a2c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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,