diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-04-17 12:47:39 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-04-17 12:47:39 +0000 |
commit | eff494dd14cc5afe1a584bb7e0000a62b81acc19 (patch) | |
tree | d8fe8284ac63f47c43d9d4126f903c54e64f778c /pp_sys.c | |
parent | 37698ac13e6c088d690d4d7ee5635c83f340f956 (diff) | |
download | perl-eff494dd14cc5afe1a584bb7e0000a62b81acc19.tar.gz |
Perl_gv_fetchmethod{,_autoload,_flags} are actually never* called with
a non-NULL stash. So change the parameter to NN.
* Fixed the one really obscure hitherto untested case.
p4raw-id: //depot/perl@33706
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -942,7 +942,7 @@ PP(pp_dbmopen) PUTBACK; require_pv("AnyDBM_File.pm"); SPAGAIN; - if (!(gv = gv_fetchmethod(stash, "TIEHASH"))) + if (!stash || !(gv = gv_fetchmethod(stash, "TIEHASH"))) DIE(aTHX_ "No dbm on this machine"); } |