diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-05-17 20:07:21 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-05-17 20:07:21 +0000 |
| commit | 72699b0f2772b6d9c4affdf9e0a3a501db463332 (patch) | |
| tree | c34dbc6736ad692409055cbd544c719b73e7c21b /pp_ctl.c | |
| parent | fa07f620619b7e6ff96ee2044fadd2ca7cc948ff (diff) | |
| download | perl-72699b0f2772b6d9c4affdf9e0a3a501db463332.tar.gz | |
More regression tests for caller() and fix one bug of #16658.
p4raw-id: //depot/perl@16662
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1460,7 +1460,7 @@ PP(pp_caller) } else { PUSHs(sv_2mortal(newSVpvn("(unknown)",9))); - PUSHs(sv_2mortal(newSViv(0))); + PUSHs(sv_2mortal(newSViv((I32)cx->blk_sub.hasargs))); } } else { |