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

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 98a958dc81..59439e9f17 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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");
     }