This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [perl #39152] diagnostics.pm: "-traceonly" vs "-trace"
authorFergal Daly <fergal@esatclear.ie>
Wed, 17 May 2006 18:59:50 +0000 (19:59 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 18 May 2006 12:34:35 +0000 (12:34 +0000)
From: "Fergal Daly" <fergal@esatclear.ie>
Message-ID: <875029960605171059y286fe449nd39d6830ef2b229a@mail.gmail.com>

p4raw-id: //depot/perl@28224

lib/diagnostics.pm

index 213638f..11f0aad 100755 (executable)
@@ -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;
                               };