Re: [PATCH lib/warnings.t] Adding TODO functionality to lib/warnings.

On Wed 01 Oct 2003 14:19, Abigail <abigail@abigail.nl> wrote:
> *** lib/warnings.t.orig	Wed Oct  1 12:46:20 2003
> --- lib/warnings.t	Wed Oct  1 13:51:01 2003
> ***************
> *** 76,81 ****
> --- 76,83 ----
>           $switch =~ s/(-\S*[A-Z]\S*)/"$1"/ if $Is_VMS; # protect uc switches
>       }
>       my($prog,$expected) = split(/\nEXPECT\n/, $_);
> +     my ($todo, $todo_reason);

        my ($todo_reason, $todo) = ("");

To prevent unused warnings at the end when no reason is found

> +     $todo = $prog =~ s/^#\s*TODO(.*)\n//m and $todo_reason = $1;

-- 
H.Merijn Brand        Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using perl-5.6.1, 5.8.0, & 5.9.x, and 806 on  HP-UX 10.20 & 11.00, 11i,
   AIX 4.3, SuSE 8.2, and Win2k.           http://www.cmve.net/~merijn/
http://archives.develooper.com/daily-build@perl.org/   perl-qa@perl.org
send smoke reports to: smokers-reports@perl.org, QA: http://qa.perl.org

• RE: [PATCH lib/warnings.t] Adding TODO functionality to lib/warn ings. by Robin Barker
• [PATCH lib/warnings.t] Adding TODO functionality to lib/warnings. by Abigail
• Re: [PATCH lib/warnings.t] Adding TODO functionality to lib/warnings. by schwern
• Re: [PATCH lib/warnings.t] Adding TODO functionality to lib/warnings. by Abigail
• Re: [PATCH lib/warnings.t] Adding TODO functionality to lib/warnings. by Rafael Garcia-Suarez
• Re: [PATCH lib/warnings.t] Adding TODO functionality to lib/warnings. by H.Merijn Brand
• Re: [PATCH lib/warnings.t] Adding TODO functionality to lib/warnings. by Abigail
• Re: [PATCH lib/warnings.t] Adding TODO functionality to lib/warnings. by H.Merijn Brand
• RE: [PATCH lib/warnings.t] Adding TODO functionality to lib/warn ings. by Robin Barker
• Re: [PATCH lib/warnings.t] Adding TODO functionality to lib/warn ings. by schwern