diff options
| author | Fergal Daly <fergal@esatclear.ie> | 2006-05-17 19:59:50 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-18 12:34:35 +0000 |
| commit | b4e8c6dd0853d6a1de629186530fac6405389283 (patch) | |
| tree | 3ae3839995ce1870bd175d49b9c356a991dbd33e /lib/diagnostics.pm | |
| parent | 404aaa48046c6f74e8a20a7e863482ec35cf551e (diff) | |
| download | perl-b4e8c6dd0853d6a1de629186530fac6405389283.tar.gz | |
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
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x | lib/diagnostics.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 213638f1d8..11f0aadc30 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; }; |