From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Thu, 11 Dec 1997 15:45:56 +0000 (+0000)
Subject: Add missing patch to op.c that didn't come across with win32 merge.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=517904598beb3bc628df983865b7308755c62ecd;p=p5sagit%2Fp5-mst-13.2.git

Add missing patch to op.c that didn't come across with win32 merge.

p4raw-id: //depot/perl@360
---

diff --git a/op.c b/op.c
index c6e1cfe..d508bfb 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);