This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: e4bfbed) | patch
handle (??{}) returning an overloaded value
authorDavid Mitchell <davem@iabyn.com>
Mon, 4 Jun 2012 12:52:05 +0000 (13:52 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:32:55 +0000 (13:32 +0100)
commit497d0a962eb278e5235610fab370cb59f4a5d7c4
treea0b5234799a208523e151f56ff6c310c3218f46dtree | snapshot
parente4bfbed39bdcbc5cd76c9cdfdeb3314c3710ad62commit | diff
handle (??{}) returning an overloaded value

In this case, always pass the object to the regex compiler, which
knows how handle this.

(The diff looks more complex than it actually is: it just wraps
the whole (logical == 2) branch with an 'if (!SvAMAGIC(ret))'.)
lib/overload.t diff | blob | blame | history
regexec.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.