summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorMalcolm Beattie <mbeattie@sable.ox.ac.uk>1997-12-11 15:45:56 +0000
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1997-12-11 15:45:56 +0000
commit517904598beb3bc628df983865b7308755c62ecd (patch)
treeeb23cfd6e9026e079233f6e8614a97aaccf9597d /op.c
parent5d06d08e734fe734c4a9189071f394ad6e9ccaac (diff)
downloadperl-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.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/op.c b/op.c
index c6e1cfe41d..d508bfba5f 100644
--- a/op.c
+++ b/op.c
@@ -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);