diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-01-25 20:57:56 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-01-25 20:57:56 +0000 |
| commit | da51bb9b4f7f527464b5e38aca8bcb956de1bbbc (patch) | |
| tree | f2f952634f7d10137a8e0c223426969a64d76ff6 /pp_sys.c | |
| parent | ede8ac17cc8980652fa00e4d3b33ce031d6bbd24 (diff) | |
| download | perl-da51bb9b4f7f527464b5e38aca8bcb956de1bbbc.tar.gz | |
The last parameter to gv_stashpv/gv_stashpvn/gv_stashsv is a bitmask
of flags, not a boolean, so correct the documenation and callers.
p4raw-id: //depot/perl@29977
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -844,7 +844,7 @@ PP(pp_tie) /* Not clear why we don't call call_method here too. * perhaps to get different error message ? */ - stash = gv_stashsv(*MARK, FALSE); + stash = gv_stashsv(*MARK, 0); if (!stash || !(gv = gv_fetchmethod(stash, methname))) { DIE(aTHX_ "Can't locate object method \"%s\" via package \"%"SVf"\"", methname, SVfARG(*MARK)); @@ -946,7 +946,7 @@ PP(pp_dbmopen) HV * const hv = (HV*)POPs; SV * const sv = sv_2mortal(newSVpvs("AnyDBM_File")); - stash = gv_stashsv(sv, FALSE); + stash = gv_stashsv(sv, 0); if (!stash || !(gv = gv_fetchmethod(stash, "TIEHASH"))) { PUTBACK; require_pv("AnyDBM_File.pm"); |