On Wed 01 Oct 2003 14:54, Abigail <abigail@abigail.nl> wrote: > On Wed, Oct 01, 2003 at 02:47:14PM +0200, H.Merijn Brand wrote: > > 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 > > "unused"? That's only given for package variables that are used > once. I presume you mean "uninitialed" warnings, but see below. Yes > > > + $todo = $prog =~ s/^#\s*TODO(.*)\n//m and $todo_reason = $1; > > > How so? If there's no reason, /(.*)/ will match the empty string, > and that's defined. Ah, of course. Stupid me. > Do you have an example where it does generate a warning? No :) -- 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.orgThread Previous