diff options
author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-12-11 15:45:56 +0000 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-12-11 15:45:56 +0000 |
commit | 517904598beb3bc628df983865b7308755c62ecd (patch) | |
tree | eb23cfd6e9026e079233f6e8614a97aaccf9597d /op.c | |
parent | 5d06d08e734fe734c4a9189071f394ad6e9ccaac (diff) | |
download | perl-517904598beb3bc628df983865b7308755c62ecd.tar.gz |
Add missing patch to op.c that didn't come across with win32 merge.
p4raw-id: //depot/perl@360
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3440,9 +3440,9 @@ newSUB(I32 floor, OP *o, OP *proto, OP *block) CV *cv; HV *hv; - sv_setpvf(sv, "%_:%ld-%ld", GvSV(curcop->cop_filegv), - (long)(subline < 0 ? -subline : subline), - (long)curcop->cop_line); + sv_setpvf(sv, "%_:%ld-%ld", + GvSV(curcop->cop_filegv), + (long)subline, (long)curcop->cop_line); gv_efullname3(tmpstr, gv, Nullch); hv_store(GvHV(DBsub), SvPVX(tmpstr), SvCUR(tmpstr), sv, 0); hv = GvHVn(db_postponed); |