Hello community, here is the log from the commit of package perl-Test-NoTabs for openSUSE:Factory checked in at 2015-04-15 16:27:11 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-NoTabs (Old) and /work/SRC/openSUSE:Factory/.perl-Test-NoTabs.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-NoTabs" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-NoTabs/perl-Test-NoTabs.changes 2013-06-06 12:57:33.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Test-NoTabs.new/perl-Test-NoTabs.changes 2015-04-15 16:27:12.000000000 +0200 @@ -1,0 +2,11 @@ +Tue Apr 14 20:38:10 UTC 2015 - [email protected] + +- updated to 1.4 + see /usr/share/doc/packages/perl-Test-NoTabs/Changes + + + 1.4 2015-01-29 + - Removed boilerplate section "EXPORT" from pod (RT #96937) (Prakash Kailasa) + - Tightened checking for pod lines. (RT #95747) (Prakash Kailasa) + +------------------------------------------------------------------- Old: ---- Test-NoTabs-1.3.tar.gz New: ---- Test-NoTabs-1.4.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-NoTabs.spec ++++++ --- /var/tmp/diff_new_pack.Q3SWb8/_old 2015-04-15 16:27:12.000000000 +0200 +++ /var/tmp/diff_new_pack.Q3SWb8/_new 2015-04-15 16:27:12.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Test-NoTabs # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-Test-NoTabs -Version: 1.3 +Version: 1.4 Release: 0 %define cpan_name Test-NoTabs Summary: Check the presence of tabs in your project @@ -29,16 +29,6 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -#BuildRequires: perl(CPANPLUS::Backend) -#BuildRequires: perl(inc::Module::Install) >= 0.78 -#BuildRequires: perl(JSON) -#BuildRequires: perl(LWP::Simple) -#BuildRequires: perl(Module::AutoInstall) -#BuildRequires: perl(Module::Build) -#BuildRequires: perl(Module::Install::Base) -#BuildRequires: perl(Parse::CPAN::Meta) -#BuildRequires: perl(Test::NoTabs) -#BuildRequires: perl(YAML::Tiny) %{perl_requires} %description ++++++ Test-NoTabs-1.3.tar.gz -> Test-NoTabs-1.4.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/Changes new/Test-NoTabs-1.4/Changes --- old/Test-NoTabs-1.3/Changes 2012-06-25 22:21:11.000000000 +0200 +++ new/Test-NoTabs-1.4/Changes 2015-01-29 11:31:52.000000000 +0100 @@ -48,3 +48,7 @@ 1.3 2012-06-25 - Fix regex to ignore '.svn', but not 'Xsvn' - unescaped . +1.4 2015-01-29 + - Removed boilerplate section "EXPORT" from pod (RT #96937) (Prakash Kailasa) + - Tightened checking for pod lines. (RT #95747) (Prakash Kailasa) + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/META.yml new/Test-NoTabs-1.4/META.yml --- old/Test-NoTabs-1.3/META.yml 2012-06-25 22:21:40.000000000 +0200 +++ new/Test-NoTabs-1.4/META.yml 2015-01-29 11:32:18.000000000 +0100 @@ -9,7 +9,7 @@ ExtUtils::MakeMaker: 6.36 distribution_type: module dynamic_config: 1 -generated_by: 'Module::Install version 1.06' +generated_by: 'Module::Install version 1.10' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -28,4 +28,4 @@ resources: license: http://dev.perl.org/licenses/ repository: git://github.com/bobtfish/perl-test-notabs.git -version: 1.3 +version: '1.4' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/inc/Module/AutoInstall.pm new/Test-NoTabs-1.4/inc/Module/AutoInstall.pm --- old/Test-NoTabs-1.3/inc/Module/AutoInstall.pm 2012-06-25 22:21:38.000000000 +0200 +++ new/Test-NoTabs-1.4/inc/Module/AutoInstall.pm 2015-01-29 11:32:18.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.10'; } # special map on pre-defined feature sets @@ -115,7 +115,7 @@ print "*** $class version " . $class->VERSION . "\n"; print "*** Checking for Perl dependencies...\n"; - my $cwd = Cwd::cwd(); + my $cwd = Cwd::getcwd(); $Config = []; @@ -166,7 +166,7 @@ $modules = [ %{$modules} ] if UNIVERSAL::isa( $modules, 'HASH' ); unshift @$modules, -default => &{ shift(@$modules) } - if ( ref( $modules->[0] ) eq 'CODE' ); # XXX: bugward combatability + if ( ref( $modules->[0] ) eq 'CODE' ); # XXX: bugward compatibility while ( my ( $mod, $arg ) = splice( @$modules, 0, 2 ) ) { if ( $mod =~ m/^-(\w+)$/ ) { @@ -345,22 +345,26 @@ my $i; # used below to strip leading '-' from config keys my @config = ( map { s/^-// if ++$i; $_ } @{ +shift } ); - my ( @modules, @installed ); - while ( my ( $pkg, $ver ) = splice( @_, 0, 2 ) ) { + my ( @modules, @installed, @modules_to_upgrade ); + while (my ($pkg, $ver) = splice(@_, 0, 2)) { - # grep out those already installed - if ( _version_cmp( _version_of($pkg), $ver ) >= 0 ) { - push @installed, $pkg; - } - else { - push @modules, $pkg, $ver; - } - } + # grep out those already installed + if (_version_cmp(_version_of($pkg), $ver) >= 0) { + push @installed, $pkg; + if ($UpgradeDeps) { + push @modules_to_upgrade, $pkg, $ver; + } + } + else { + push @modules, $pkg, $ver; + } + } - if ($UpgradeDeps) { - push @modules, @installed; - @installed = (); - } + if ($UpgradeDeps) { + push @modules, @modules_to_upgrade; + @installed = (); + @modules_to_upgrade = (); + } return @installed unless @modules; # nothing to do return @installed if _check_lock(); # defer to the CPAN shell @@ -611,7 +615,7 @@ require Cwd; require File::Spec; - my $cwd = File::Spec->canonpath( Cwd::cwd() ); + my $cwd = File::Spec->canonpath( Cwd::getcwd() ); my $cpan = File::Spec->canonpath( $CPAN::Config->{cpan_home} ); return ( index( $cwd, $cpan ) > -1 ); @@ -927,4 +931,4 @@ __END__ -#line 1193 +#line 1197 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/inc/Module/Install/AutoInstall.pm new/Test-NoTabs-1.4/inc/Module/Install/AutoInstall.pm --- old/Test-NoTabs-1.3/inc/Module/Install/AutoInstall.pm 2012-06-25 22:21:38.000000000 +0200 +++ new/Test-NoTabs-1.4/inc/Module/Install/AutoInstall.pm 2015-01-29 11:32:18.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.10'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -91,3 +91,7 @@ } 1; + +__END__ + +#line 109 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/inc/Module/Install/Base.pm new/Test-NoTabs-1.4/inc/Module/Install/Base.pm --- old/Test-NoTabs-1.3/inc/Module/Install/Base.pm 2012-06-25 22:21:38.000000000 +0200 +++ new/Test-NoTabs-1.4/inc/Module/Install/Base.pm 2015-01-29 11:32:18.000000000 +0100 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.10'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/inc/Module/Install/Can.pm new/Test-NoTabs-1.4/inc/Module/Install/Can.pm --- old/Test-NoTabs-1.3/inc/Module/Install/Can.pm 2012-06-25 22:21:39.000000000 +0200 +++ new/Test-NoTabs-1.4/inc/Module/Install/Can.pm 2015-01-29 11:32:18.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.10'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/inc/Module/Install/Fetch.pm new/Test-NoTabs-1.4/inc/Module/Install/Fetch.pm --- old/Test-NoTabs-1.3/inc/Module/Install/Fetch.pm 2012-06-25 22:21:39.000000000 +0200 +++ new/Test-NoTabs-1.4/inc/Module/Install/Fetch.pm 2015-01-29 11:32:18.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.10'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -91,3 +91,7 @@ } 1; + +__END__ + +#line 109 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/inc/Module/Install/Include.pm new/Test-NoTabs-1.4/inc/Module/Install/Include.pm --- old/Test-NoTabs-1.3/inc/Module/Install/Include.pm 2012-06-25 22:21:38.000000000 +0200 +++ new/Test-NoTabs-1.4/inc/Module/Install/Include.pm 2015-01-29 11:32:18.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.10'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -32,3 +32,7 @@ } 1; + +__END__ + +#line 50 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/inc/Module/Install/Makefile.pm new/Test-NoTabs-1.4/inc/Module/Install/Makefile.pm --- old/Test-NoTabs-1.3/inc/Module/Install/Makefile.pm 2012-06-25 22:21:38.000000000 +0200 +++ new/Test-NoTabs-1.4/inc/Module/Install/Makefile.pm 2015-01-29 11:32:18.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.10'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -133,7 +133,7 @@ return $args; } -# For mm args that take multiple space-seperated args, +# For mm args that take multiple space-separated args, # append an argument to the current list. sub makemaker_append { my $self = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/inc/Module/Install/Metadata.pm new/Test-NoTabs-1.4/inc/Module/Install/Metadata.pm --- old/Test-NoTabs-1.3/inc/Module/Install/Metadata.pm 2012-06-25 22:21:38.000000000 +0200 +++ new/Test-NoTabs-1.4/inc/Module/Install/Metadata.pm 2015-01-29 11:32:18.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.10'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -347,7 +347,7 @@ ^ \s* package \s* ([\w:]+) - \s* ; + [\s|;]* /ixms ) { my ($name, $module_name) = ($1, $1); @@ -453,24 +453,40 @@ #Stolen from M::B my %license_urls = ( - perl => 'http://dev.perl.org/licenses/', - apache => 'http://apache.org/licenses/LICENSE-2.0', - apache_1_1 => 'http://apache.org/licenses/LICENSE-1.1', - artistic => 'http://opensource.org/licenses/artistic-license.php', - artistic_2 => 'http://opensource.org/licenses/artistic-license-2.0.php', - lgpl => 'http://opensource.org/licenses/lgpl-license.php', - lgpl2 => 'http://opensource.org/licenses/lgpl-2.1.php', - lgpl3 => 'http://opensource.org/licenses/lgpl-3.0.html', - bsd => 'http://opensource.org/licenses/bsd-license.php', - gpl => 'http://opensource.org/licenses/gpl-license.php', - gpl2 => 'http://opensource.org/licenses/gpl-2.0.php', - gpl3 => 'http://opensource.org/licenses/gpl-3.0.html', - mit => 'http://opensource.org/licenses/mit-license.php', - mozilla => 'http://opensource.org/licenses/mozilla1.1.php', open_source => undef, unrestricted => undef, restrictive => undef, unknown => undef, + +## from Software-License - should we be using S-L instead ? +# duplicates commeted out, see hack above ^^ +# open_source => 'http://www.gnu.org/licenses/agpl-3.0.txt', +# apache => 'http://www.apache.org/licenses/LICENSE-1.1', + apache => 'http://www.apache.org/licenses/LICENSE-2.0.txt', + artistic => 'http://www.perlfoundation.org/artistic_license_1_0', + artistic_2 => 'http://www.perlfoundation.org/artistic_license_2_0', + bsd => 'http://opensource.org/licenses/BSD-3-Clause', +# unrestricted => 'http://creativecommons.org/publicdomain/zero/1.0/', +# open_source => 'http://www.freebsd.org/copyright/freebsd-license.html', +# open_source => 'http://www.gnu.org/licenses/fdl-1.2.txt', +# open_source => 'http://www.gnu.org/licenses/fdl-1.3.txt', +# gpl => 'http://www.gnu.org/licenses/old-licenses/gpl-1.0.txt', +# gpl => 'http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt', + gpl => 'http://www.gnu.org/licenses/gpl-3.0.txt', +# lgpl => 'http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt', + lgpl => 'http://www.gnu.org/licenses/lgpl-3.0.txt', + mit => 'http://www.opensource.org/licenses/mit-license.php', +# mozilla => 'http://www.mozilla.org/MPL/MPL-1.0.txt', +# mozilla => 'http://www.mozilla.org/MPL/MPL-1.1.txt', + mozilla => 'http://www.mozilla.org/MPL/2.0/index.txt', +# restrictive => '', +# open_source => 'http://www.openssl.org/source/license.html', + perl => 'http://dev.perl.org/licenses/', +# open_source => 'http://www.opensource.org/licenses/postgresql', +# open_source => 'http://trolltech.com/products/qt/licenses/licensing/qpl', +# unrestricted => 'http://h71000.www7.hp.com/doc/83final/BA554_90007/apcs02.html', +# open_source => 'http://www.openoffice.org/licenses/sissl_license.html', +# open_source => 'http://www.zlib.net/zlib_license.html', ); sub license { @@ -511,31 +527,43 @@ my @phrases = ( '(?:under )?the same (?:terms|license) as (?:perl|the perl (?:\d )?programming language)' => 'perl', 1, '(?:under )?the terms of (?:perl|the perl programming language) itself' => 'perl', 1, - 'Artistic and GPL' => 'perl', 1, - 'GNU general public license' => 'gpl', 1, - 'GNU public license' => 'gpl', 1, - 'GNU lesser general public license' => 'lgpl', 1, - 'GNU lesser public license' => 'lgpl', 1, - 'GNU library general public license' => 'lgpl', 1, - 'GNU library public license' => 'lgpl', 1, - 'GNU Free Documentation license' => 'unrestricted', 1, - 'GNU Affero General Public License' => 'open_source', 1, + + # the following are relied on by the test system even if they are wrong :( '(?:Free)?BSD license' => 'bsd', 1, 'Artistic license 2\.0' => 'artistic_2', 1, - 'Artistic license' => 'artistic', 1, - 'Apache (?:Software )?license' => 'apache', 1, - 'GPL' => 'gpl', 1, 'LGPL' => 'lgpl', 1, - 'BSD' => 'bsd', 1, - 'Artistic' => 'artistic', 1, 'MIT' => 'mit', 1, - 'Mozilla Public License' => 'mozilla', 1, - 'Q Public License' => 'open_source', 1, - 'OpenSSL License' => 'unrestricted', 1, - 'SSLeay License' => 'unrestricted', 1, - 'zlib License' => 'open_source', 1, - 'proprietary' => 'proprietary', 0, + +## from Software-License + 'The GNU Affero General Public License, Version 3, November 2007' => 'open_source', 1, + 'The Apache Software License, Version 1.1' => 'apache', 1, + 'The Apache License, Version 2.0, January 2004' => 'apache', 1, + 'The Artistic License 1.0' => 'artistic', 1, + 'The Artistic License 2.0 (GPL Compatible)' => 'artistic_2', 1, + 'The (three-clause) BSD License' => 'bsd', 1, + 'CC0 License' => 'unrestricted', 1, + 'The (two-clause) FreeBSD License' => 'open_source', 1, + 'GNU Free Documentation License v1.2' => 'open_source', 1, + 'GNU Free Documentation License v1.3' => 'open_source', 1, + 'The GNU General Public License, Version 1, February 1989' => 'gpl', 1, + 'The GNU General Public License, Version 2, June 1991' => 'gpl', 1, + 'The GNU General Public License, Version 3, June 2007' => 'gpl', 1, + 'The GNU Lesser General Public License, Version 2.1, February 1999' => 'lgpl', 1, + 'The GNU Lesser General Public License, Version 3, June 2007' => 'lgpl', 1, + 'The MIT (X11) License' => 'mit', 1, + 'The Mozilla Public License 1.0' => 'mozilla', 1, + 'The Mozilla Public License 1.1' => 'mozilla', 1, + 'Mozilla Public License Version 2.0' => 'mozilla', 1, + '"No License" License' => 'restrictive', 1, + 'OpenSSL License' => 'open_source', 1, + 'the same terms as the perl 5 programming language system itself' => 'perl', 1, + 'The PostgreSQL License' => 'open_source', 1, + 'The Q Public License, Version 1.0' => 'open_source', 1, + 'Original SSLeay License' => 'unrestricted', 1, + 'Sun Internet Standards Source License (SISSL)' => 'open_source', 1, + 'The zlib License' => 'open_source', 1, ); + while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) { $pattern =~ s#\s+#\\s+#gs; if ( $license_text =~ /\b$pattern\b/i ) { @@ -705,7 +733,7 @@ my @yaml = Parse::CPAN::Meta::LoadFile('META.yml'); my $meta = $yaml[0]; - # Overwrite the non-configure dependency hashs + # Overwrite the non-configure dependency hashes delete $meta->{requires}; delete $meta->{build_requires}; delete $meta->{recommends}; @@ -720,3 +748,7 @@ } 1; + +__END__ + +#line 766 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/inc/Module/Install/Win32.pm new/Test-NoTabs-1.4/inc/Module/Install/Win32.pm --- old/Test-NoTabs-1.3/inc/Module/Install/Win32.pm 2012-06-25 22:21:39.000000000 +0200 +++ new/Test-NoTabs-1.4/inc/Module/Install/Win32.pm 2015-01-29 11:32:18.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.10'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -62,3 +62,7 @@ } 1; + +__END__ + +#line 80 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/inc/Module/Install/WriteAll.pm new/Test-NoTabs-1.4/inc/Module/Install/WriteAll.pm --- old/Test-NoTabs-1.3/inc/Module/Install/WriteAll.pm 2012-06-25 22:21:39.000000000 +0200 +++ new/Test-NoTabs-1.4/inc/Module/Install/WriteAll.pm 2015-01-29 11:32:18.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.10'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } @@ -61,3 +61,7 @@ } 1; + +__END__ + +#line 79 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/inc/Module/Install.pm new/Test-NoTabs-1.4/inc/Module/Install.pm --- old/Test-NoTabs-1.3/inc/Module/Install.pm 2012-06-25 22:21:38.000000000 +0200 +++ new/Test-NoTabs-1.4/inc/Module/Install.pm 2015-01-29 11:32:18.000000000 +0100 @@ -17,7 +17,7 @@ # 3. The ./inc/ version of Module::Install loads # } -use 5.005; +use 5.006; use strict 'vars'; use Cwd (); use File::Find (); @@ -31,7 +31,7 @@ # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. - $VERSION = '1.06'; + $VERSION = '1.10'; # Storage for the pseudo-singleton $MAIN = undef; @@ -156,10 +156,10 @@ sub autoload { my $self = shift; my $who = $self->_caller; - my $cwd = Cwd::cwd(); + my $cwd = Cwd::getcwd(); my $sym = "${who}::AUTOLOAD"; $sym->{$cwd} = sub { - my $pwd = Cwd::cwd(); + my $pwd = Cwd::getcwd(); if ( my $code = $sym->{$pwd} ) { # Delegate back to parent dirs goto &$code unless $cwd eq $pwd; @@ -239,7 +239,7 @@ # ignore the prefix on extension modules built from top level. my $base_path = Cwd::abs_path($FindBin::Bin); - unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) { + unless ( Cwd::abs_path(Cwd::getcwd()) eq $base_path ) { delete $args{prefix}; } return $args{_self} if $args{_self}; @@ -338,7 +338,7 @@ if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) { my $content = Module::Install::_read($subpath . '.pm'); my $in_pod = 0; - foreach ( split //, $content ) { + foreach ( split /\n/, $content ) { $in_pod = 1 if /^=\w/; $in_pod = 0 if /^=cut/; next if ($in_pod || /^=cut/); # skip pod text @@ -434,7 +434,7 @@ # _version is for processing module versions (eg, 1.03_05) not # Perl versions (eg, 5.8.1). -sub _version ($) { +sub _version { my $s = shift || 0; my $d =()= $s =~ /(\.)/g; if ( $d >= 2 ) { @@ -450,12 +450,12 @@ return $l + 0; } -sub _cmp ($$) { +sub _cmp { _version($_[1]) <=> _version($_[2]); } # Cloned from Params::Util::_CLASS -sub _CLASS ($) { +sub _CLASS { ( defined $_[0] and @@ -467,4 +467,7 @@ 1; -# Copyright 2008 - 2012 Adam Kennedy. + +__END__ + +#line 485 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/lib/Test/NoTabs.pm new/Test-NoTabs-1.4/lib/Test/NoTabs.pm --- old/Test-NoTabs-1.3/lib/Test/NoTabs.pm 2012-06-25 22:21:15.000000000 +0200 +++ new/Test-NoTabs-1.4/lib/Test/NoTabs.pm 2015-01-29 11:30:41.000000000 +0100 @@ -10,7 +10,7 @@ use vars qw( $VERSION $PERL $UNTAINT_PATTERN $PERL_PATTERN); -$VERSION = '1.3'; +$VERSION = '1.4'; $PERL = $^X || 'perl'; $UNTAINT_PATTERN = qr|^([-+@\w./:\\]+)$|; @@ -72,7 +72,7 @@ while (<$fh>) { $line++; next if (/^\s*#/); - next if (/^\s*=.+/ .. (/^\s*=(cut|back|end)/ || eof($fh))); + next if (/^\s*=(head[1234]|over|item|begin|for|encoding)/ .. (/^\s*=(cut|back|end)/ || eof($fh))); last if (/^\s*(__END__|__DATA__)/); if ( /\t/ ) { $Test->ok(0, $test_txt . " on line $line"); @@ -161,11 +161,6 @@ This module scans your project/distribution for any perl files (scripts, modules, etc) for the presence of tabs. -=head1 EXPORT - -A list of functions that can be exported. You can delete this section -if you don't export anything, such as for a purely object-oriented module. - =head1 FUNCTIONS =head2 all_perl_files_ok( [ @directories ] ) @@ -243,7 +238,7 @@ =head1 SEE ALSO -L<Test::More>, L<Test::Pod>. L<Test::Distribution>, L<Test:NoWarnings> +L<Test::More>, L<Test::Pod>. L<Test::Distribution>, L<Test::NoWarnings> =head1 COPYRIGHT & LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-NoTabs-1.3/t/12-fail.t new/Test-NoTabs-1.4/t/12-fail.t --- old/Test-NoTabs-1.3/t/12-fail.t 2011-04-29 14:01:36.000000000 +0200 +++ new/Test-NoTabs-1.4/t/12-fail.t 2015-01-29 11:30:12.000000000 +0100 @@ -44,6 +44,18 @@ system("rm -rf $dir"); } +{ + my ($dir, $file) = make_bad_file_4(); + my (undef, $outfile) = tempfile(); + ok( `$perl $inc -MTest::NoTabs -e "all_perl_files_ok( '$file' )" 2>&1 > $outfile` ); + open my $fh, '<', $outfile or die $!; + local $/ = undef; + my $content = <$fh>; + like( $content, qr/^not ok 1 - No tabs in '[^']*' on line 10/m, 'tabs found in tmp file 4' ); + unlink $outfile; + system("rm -rf $dir"); +} + sub make_bad_file_1 { my $tmpdir = tempdir(); my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' ); @@ -100,3 +112,24 @@ return ($tmpdir, $filename); } +sub make_bad_file_4 { + my $tmpdir = tempdir(); + my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pm' ); + print $fh <<"DUMMY"; +use strict; + +package My::Test; + +sub new { +my (\$class) = @_; +# split the assignment state below to make the second half look like a pod section +my \$self += bless { }, \$class; +\treturn \$self; +} + +1; +DUMMY + close $fh; + return ($tmpdir, $filename); +}
