import SOAP-WSDL 2.00.04 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.04 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.04.tar.gz
This commit is contained in:
committed by
Michael G. Schwern
parent
e58a27e2ad
commit
c3e3d1908e
+4
-4
@@ -8,8 +8,8 @@ use File::Find;
|
||||
use IO::File;
|
||||
|
||||
|
||||
if ( not $ENV{TEST_AUTHOR} ) {
|
||||
my $msg = 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.';
|
||||
if ( not $ENV{RELEASE_TESTING} ) {
|
||||
my $msg = 'Author test. Set $ENV{RELEASE_TESTING} to a true value to run.';
|
||||
plan( skip_all => $msg );
|
||||
}
|
||||
|
||||
@@ -46,7 +46,7 @@ sub check_file {
|
||||
|
||||
while (my $line = $fh->getline() ) {
|
||||
# check for trailing whitespace
|
||||
# allow single whitespace on line to allow
|
||||
# allow single whitespace on line to allow
|
||||
# pod source blocks with empty lines
|
||||
#
|
||||
$line_nr++;
|
||||
@@ -67,7 +67,7 @@ sub check_file {
|
||||
print "# tab found in $file line $line_nr cols ${ \join(', ', @tab_pos_from) }\n";
|
||||
$error_count += scalar(@tab_pos_from);
|
||||
}
|
||||
|
||||
|
||||
if ($line=~m{\r}) {
|
||||
print "# CR (\\r) found in $file line $line_nr. Convert to LF only.\n";
|
||||
$error_count++;
|
||||
|
||||
Reference in New Issue
Block a user