[win32] merge changes#982,984 from maintbranch

p4raw-link: @984 on //depot/maint-5.004/perl: aaffd3c27a04135bbc287616252cc5830b7c5543
p4raw-link: @982 on //depot/maint-5.004/perl: c5ed518aab0e5c6006080a87273e79a1b8e0d48b

p4raw-id: //depot/win32/perl@997

1 files changed, 2 insertions, 2 deletions

diff --git a/gv.c b/gv.c
index 5d65d60e64..b48e4d8ede 100644
--- a/gv.c
+++ b/gv.c
@@ -712,7 +712,7 @@ gv_fetchpv(char *nambeg, I32 add, I32 sv_type)
     case '!':
 	if(len > 1)
 	    break;
-	if(sv_type == SVt_PVHV) {
+	if(sv_type > SVt_PV) {
 	    HV* stash = gv_stashpvn("Errno",5,FALSE);
 	    if(!stash || !(gv_fetchmethod(stash, "TIEHASH"))) {
 		dSP;
@@ -721,7 +721,7 @@ gv_fetchpv(char *nambeg, I32 add, I32 sv_type)
 		SPAGAIN;
 		stash = gv_stashpvn("Errno",5,FALSE);
 		if (!stash || !(gv_fetchmethod(stash, "TIEHASH")))
-		    croak("%! is not avaliable on this machine");
+		    croak("Can't use %%! because Errno.pm is not avaliable");
 	    }
 	}
 	goto magicalize;