merge changes from maintbranch (1354, and relevant part of 1356); all

maintenance changes upto 1356 merged

p4raw-id: //depot/perl@1397

1 files changed, 3 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index fa6c5a58d1..dc8935beb9 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2447,7 +2447,9 @@ PP(pp_method)
 	    !(ob=(SV*)GvIO(iogv)))
 	{
 	    if (!packname || !isIDFIRST(*packname))
-  DIE("Can't call method \"%s\" without a package or object reference", name);
+		DIE("Can't call method \"%s\" %s", name,
+		    SvOK(sv)? "without a package or object reference"
+			    : "on an undefined value");
 	    stash = gv_stashpvn(packname, packlen, TRUE);
 	    goto fetch;
 	}