summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1997-11-25 20:57:31 +0000
committerGurusamy Sarathy <gsar@cpan.org>1997-11-25 20:57:31 +0000
commit769c30bc4bb5d7abeb7306e297a4071100a0e741 (patch)
treec4631e2750f21b7dada51b3f24476bdb9900ca41 /op.c
parent0372dfcfb12b34b2d22f799e7534240631131ef3 (diff)
downloadperl-769c30bc4bb5d7abeb7306e297a4071100a0e741.tar.gz
[win32] Fixup the places where the automatic merge got it wrong.
Previous change (#302) was just a normal integration--ignore the "reverse" in there. p4raw-id: //depot/win32/perl@303
Diffstat (limited to 'op.c')
-rw-r--r--op.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/op.c b/op.c
index c86880c901..070fce4a85 100644
--- a/op.c
+++ b/op.c
@@ -3437,9 +3437,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);
if (!db_postponed) {