projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Try to fix largefileness so that it "works" without a quad IV.
[p5sagit/p5-mst-13.2.git]
/
run.c
diff --git
a/run.c
b/run.c
index
5734fdb
..
1c44f05
100644
(file)
--- a/
run.c
+++ b/
run.c
@@
-74,9
+74,9
@@
Perl_debop(pTHX_ OP *o)
break;
case OP_GVSV:
case OP_GV:
- if (cSVOPo->op_sv) {
+ if (cGVOPo) {
sv = NEWSV(0,0);
- gv_fullname3(sv, (GV*)cSVOPo->op_sv, Nullch);
+ gv_fullname3(sv, cGVOPo, Nullch);
PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, n_a));
SvREFCNT_dec(sv);
}