diff options
Diffstat (limited to 't/011pod.t')
| -rw-r--r-- | t/011pod.t | 28 |
1 files changed, 10 insertions, 18 deletions
diff --git a/t/011pod.t b/t/011pod.t index 517ca03ad..4f5fa87f7 100644 --- a/t/011pod.t +++ b/t/011pod.t @@ -1,27 +1,19 @@ -# -*- Mode: perl; indent-tabs-mode: nil -*- -# -# The contents of this file are subject to the Mozilla Public -# License Version 1.1 (the "License"); you may not use this file -# except in compliance with the License. You may obtain a copy of -# the License at http://www.mozilla.org/MPL/ -# -# Software distributed under the License is distributed on an "AS -# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or -# implied. See the License for the specific language governing -# rights and limitations under the License. -# -# The Original Code are the Bugzilla Tests. -# -# Contributor(s): Frédéric Buclin <LpSolit@gmail.com> - +# This Source Code Form is subject to the terms of the Mozilla Public +# License, v. 2.0. If a copy of the MPL was not distributed with this +# file, You can obtain one at http://mozilla.org/MPL/2.0/. +# +# This Source Code Form is "Incompatible With Secondary Licenses", as +# defined by the Mozilla Public License, v. 2.0. ################## #Bugzilla Test 11# ##POD validation## +use 5.10.1; use strict; +use warnings; -use lib 't'; +use lib qw(. lib local/lib/perl5 t); use Support::Files; use Pod::Checker; @@ -32,7 +24,7 @@ use Test::More tests => scalar(@Support::Files::testitems); # This will handle verbosity for us automatically. my $fh; { - local $^W = 0; # Don't complain about non-existent filehandles + no warnings 'unopened'; if (-e \*Test::More::TESTOUT) { $fh = \*Test::More::TESTOUT; } elsif (-e \*Test::Builder::TESTOUT) { |