diff options
| author | John Peacock <jpeacock@rowman.com> | 2002-03-08 10:52:41 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-08 20:07:07 +0000 |
| commit | 964097f73abcb725c604e0b240fca61061379a2c (patch) | |
| tree | 39f5e78ce5f29ddb52d94c462c9ac2d562873788 | |
| parent | 675257080389b77dbcc9697a5f5bcf4e38fc0a26 (diff) | |
| download | perl-964097f73abcb725c604e0b240fca61061379a2c.tar.gz | |
Forgot an OVERLOAD character in xsubpp
Message-ID: <3C892499.4050502@rowman.com>
p4raw-id: //depot/perl@15118
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index fe2527c2dc..55dd1a4123 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, |