Integrate change #10100 from maintperl.

PL_last_in_gv may not be a GV if it was a stale filehandle (fix for
bug ID 20010514.027)

p4raw-link: @10100 on //depot/maint-5.6/perl: 5244397c028305e17ca4ad7e80cf900323dbeb8b

p4raw-id: //depot/perl@10103
p4raw-integrated: from //depot/maint-5.6/perl@10102 'merge in' mg.c
	(@9288..) pp_ctl.c (@9584..)

1 files changed, 1 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index 931b1a1525..de687c4c97 100644
--- a/mg.c
+++ b/mg.c
@@ -674,7 +674,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
     case '.':
 #ifndef lint
 	if (GvIO(PL_last_in_gv)) {
-	    sv_setiv(sv, (IV)IoLINES(GvIO(PL_last_in_gv)));
+	    sv_setiv(sv, (IV)IoLINES(GvIOp(PL_last_in_gv)));
 	}
 #endif
 	break;