From b4e8c6dd0853d6a1de629186530fac6405389283 Mon Sep 17 00:00:00 2001
From: Fergal Daly <fergal@esatclear.ie>
Date: Wed, 17 May 2006 19:59:50 +0100
Subject: [PATCH] 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
---
 lib/diagnostics.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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;
 			       };
-- 
2.7.4