From 964097f73abcb725c604e0b240fca61061379a2c Mon Sep 17 00:00:00 2001 From: John Peacock Date: Fri, 8 Mar 2002 10:52:41 -0500 Subject: [PATCH] Forgot an OVERLOAD character in xsubpp Message-ID: <3C892499.4050502@rowman.com> p4raw-id: //depot/perl@15118 --- lib/ExtUtils/xsubpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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, -- 2.7.4