diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-27 17:18:52 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-27 17:18:52 +0200 |
| commit | f7223e8e1a4c8ac13f56c6da4f523e8bfe828dc0 (patch) | |
| tree | 4ff16aa0689ea1d7a24e6363709b1342e016c010 /t/pod | |
| parent | 87a63fff814bea4d594840ceb735b2807e76f5f9 (diff) | |
| download | perl-f7223e8e1a4c8ac13f56c6da4f523e8bfe828dc0.tar.gz | |
Adjustments to t/pod/diag.t
Diffstat (limited to 't/pod')
| -rw-r--r-- | t/pod/diag.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/pod/diag.t b/t/pod/diag.t index 5ecbe1e19b..5f378ae220 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 |