diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-02-26 00:42:07 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-26 14:43:54 +0000 |
| commit | e982885c7ba24a5bfd453c5e627281408fc80421 (patch) | |
| tree | 0bbe2747f3c81ed27661de6f4e88bc9d3b02b614 | |
| parent | 1bd1c0d55f7ef526804dc7dc113e1957e1b2b423 (diff) | |
| download | perl-e982885c7ba24a5bfd453c5e627281408fc80421.tar.gz | |
Documenting coderef @INC (Re: CPAN "make this script work" feature)
Message-ID: <20010226004207.F23333@plum.flirble.org>
p4raw-id: //depot/perl@8953
| -rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -3166,7 +3166,10 @@ trylocal: { PUSHs(dirsv); PUSHs(sv); PUTBACK; - count = call_sv(loader, G_ARRAY); + if (sv_isobject(loader)) + count = call_method("INC", G_ARRAY); + else + count = call_sv(loader, G_ARRAY); SPAGAIN; if (count > 0) { |