From: Fergal Daly <fergal@esatclear.ie>
Date: Wed, 17 May 2006 18:59:50 +0000 (+0100)
Subject: Re: [perl #39152] diagnostics.pm: "-traceonly" vs "-trace"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b4e8c6dd0853d6a1de629186530fac6405389283;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #39152] diagnostics.pm: "-traceonly" vs "-trace"
From: "Fergal Daly" <fergal@esatclear.ie>
Message-ID: <875029960605171059y286fe449nd39d6830ef2b229a@mail.gmail.com>

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

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 213638f..11f0aad 100755
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -185,7 +185,7 @@ use 5.006;
 use Carp;
 $Carp::Internal{__PACKAGE__.""}++;
 
-our $VERSION = 1.15;
+our $VERSION = 1.16;
 our $DEBUG;
 our $VERBOSE;
 our $PRETTY;
@@ -466,12 +466,12 @@ sub import {
 				    $PRETTY++;
 				    next;
 			       };
-
-	/^-t(race)?$/ 		&& do {
+	# matches trace and traceonly for legacy doc mixup reasons
+	/^-t(race(only)?)?$/	&& do {
 				    $TRACEONLY++;
 				    next;
 			       };
-	/^-w(arntrace)?$/ 		&& do {
+	/^-w(arntrace)?$/ 	&& do {
 				    $WARNTRACE++;
 				    next;
 			       };