From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 27 Jun 2009 15:18:52 +0000 (+0200)
Subject: Adjustments to t/pod/diag.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f7223e8e1a4c8ac13f56c6da4f523e8bfe828dc0;p=p5sagit%2Fp5-mst-13.2.git

Adjustments to t/pod/diag.t
---

diff --git a/t/pod/diag.t b/t/pod/diag.t
index 5ecbe1e..5f378ae 100644
--- a/t/pod/diag.t
+++ b/t/pod/diag.t
@@ -4,7 +4,7 @@ use strict;
 use Test::More 'no_plan';
 $|=1;
 
-my $make_exceptions_list = $ARGV[0]||'' eq '--make-exceptions-list';
+my $make_exceptions_list = ($ARGV[0]||'') eq '--make-exceptions-list';
 
 open my $diagfh, "<:raw", "../pod/perldiag.pod"
   or die "Can't open ../pod/perldiag.pod: $!";
@@ -44,7 +44,7 @@ while (@todo) {
 sub check_file {
   my ($codefn) = @_;
 
-  diag($codefn);
+  print "# $codefn\n";
 
   open my $codefh, "<:raw", $codefn
     or die "Can't open $codefn: $!";
@@ -171,7 +171,7 @@ sub check_file {
     }
   }
 }
-# Lists all missing things as of the inaguation of this script, so we
+# Lists all missing things as of the inaguration of this script, so we
 # don't have to go from "meh" to perfect all at once.
 __DATA__
 Ambiguous call resolved as CORE::%s(), %s