Hello community,
here is the log from the commit of package perl-IO-Socket-INET6 for
openSUSE:Factory checked in at 2013-06-06 13:23:53
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-IO-Socket-INET6 (Old)
and /work/SRC/openSUSE:Factory/.perl-IO-Socket-INET6.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-IO-Socket-INET6"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-IO-Socket-INET6/perl-IO-Socket-INET6.changes
2011-12-01 17:38:20.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-IO-Socket-INET6.new/perl-IO-Socket-INET6.changes
2013-06-06 13:23:54.000000000 +0200
@@ -1,0 +2,8 @@
+Wed Jun 5 07:41:15 UTC 2013 - [email protected]
+
+- updated to 2.70
+ * Fix a typo:
+ - https://rt.cpan.org/Ticket/Display.html?id=73143
+ * Add t/style-trailing-space.t and got rid of trailing space.
+
+-------------------------------------------------------------------
Old:
----
IO-Socket-INET6-2.69.tar.gz
New:
----
IO-Socket-INET6-2.70.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-IO-Socket-INET6.spec ++++++
--- /var/tmp/diff_new_pack.jAKST9/_old 2013-06-06 13:23:54.000000000 +0200
+++ /var/tmp/diff_new_pack.jAKST9/_new 2013-06-06 13:23:54.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-IO-Socket-INET6
#
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -19,18 +19,17 @@
%bcond_with test
Name: perl-IO-Socket-INET6
-Version: 2.69
-Release: 1
-License: GPL-1.0+ or Artistic-1.0
+Version: 2.70
+Release: 0
%define cpan_name IO-Socket-INET6
-Summary: Object interface for AF_INET|AF_INET6 domain sockets
-Url: http://search.cpan.org/dist/IO-Socket-INET6/
+Summary: Object interface for AF_INET/AF_INET6 domain sockets
+License: GPL-1.0+ or Artistic-1.0
Group: Development/Libraries/Perl
-#Source:
http://www.cpan.org/modules/by-module/IO/IO-Socket-INET6-%{version}.tar.gz
-Source: %{cpan_name}-%{version}.tar.gz
+Url: http://search.cpan.org/dist/IO-Socket-INET6/
+Source:
http://www.cpan.org/authors/id/S/SH/SHLOMIF/%{cpan_name}-%{version}.tar.gz
BuildRequires: perl
-BuildRequires: perl(Module::Build)
BuildRequires: perl-macros
+BuildRequires: perl(Module::Build)
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildArch: noarch
%{perl_requires}
++++++ IO-Socket-INET6-2.69.tar.gz -> IO-Socket-INET6-2.70.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/Build.PL
new/IO-Socket-INET6-2.70/Build.PL
--- old/IO-Socket-INET6-2.69/Build.PL 2011-11-28 13:57:54.000000000 +0100
+++ new/IO-Socket-INET6-2.70/Build.PL 2013-05-21 18:06:40.000000000 +0200
@@ -7,7 +7,9 @@
my $build = Test::Run::Builder->new(
'module_name' => "IO::Socket::INET6",
- 'requires' =>
+ dist_version_from => 'lib/IO/Socket/INET6.pm',
+ dist_abstract => 'Object interface for AF_INET/AF_INET6 domain sockets',
+ 'requires' =>
{
'Carp' => 0,
'Errno' => 0,
@@ -47,6 +49,6 @@
"sockets",
],
},
-
);
+
$build->create_build_script;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/ChangeLog
new/IO-Socket-INET6-2.70/ChangeLog
--- old/IO-Socket-INET6-2.69/ChangeLog 2011-11-28 13:57:54.000000000 +0100
+++ new/IO-Socket-INET6-2.70/ChangeLog 2013-05-21 18:06:40.000000000 +0200
@@ -1,3 +1,9 @@
+2013-05-21 Shlomi Fish <[email protected]>
+ * Fix a typo:
+ - https://rt.cpan.org/Ticket/Display.html?id=73143
+ * Add t/style-trailing-space.t and got rid of trailing space.
+ * New Release IO-Socket-INET6-2.70
+
2011-11-28 Shlomi Fish <[email protected]>
* Fix the imports on t/io_multihomed6.t .
- Fixes https://rt.cpan.org/Ticket/Display.html?id=72769 again.
@@ -22,8 +28,8 @@
* New Release IO-Socket-INET6-2.66
2010-06-11 Shlomi Fish <[email protected]>
- * Add a fix for t/io_multihomed6.t to make sure
- ok 3 will be printed before ok 4. due to many failures in the tests.
+ * Add a fix for t/io_multihomed6.t to make sure
+ ok 3 will be printed before ok 4. due to many failures in the tests.
Such as:
-
http://www.cpantesters.org/cpan/report/07413426-b19f-3f77-b713-d32bba55d77f
* New Release IO-Socket-INET6-2.65
@@ -72,7 +78,7 @@
* New Release IO-Socket-INET6-2.58
2009-11-23 Shlomi Fish <[email protected]>
- * Applied a modified version of a patch by Matthew Horsfall
+ * Applied a modified version of a patch by Matthew Horsfall
<[email protected]> in order to add t/blocking.t and deal with the
blocking sockets properly.
* New Release IO-Socket-INET6-2.57
@@ -102,7 +108,7 @@
2008-02-21 Shlomi Fish <[email protected]>
* Converted to Build.PL and placed INET6.pm under lib/.
- * Added a "repository" URL to the POD.
+ * Added a "repository" URL to the POD.
* Added the pod.t and pod-coverage.t files and we now have full POD
coverage.
* Added more dependencies to the Build.PL.
@@ -121,8 +127,8 @@
* Fixed sockhost() with the fact that inet_ntop() was not imported.
- Added a test.
* Added "use warnings" to IO::Socket::INET6.
- * Added a modified version of my patch (with more comments) to patch
- the problems I found in IO-Socket-INET6. (generating
+ * Added a modified version of my patch (with more comments) to patch
+ the problems I found in IO-Socket-INET6. (generating
warnings upon using and failed tests.).
2004-18-10 Rafael Martinez Torres <[email protected]>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/MANIFEST
new/IO-Socket-INET6-2.70/MANIFEST
--- old/IO-Socket-INET6-2.69/MANIFEST 2011-11-28 13:57:54.000000000 +0100
+++ new/IO-Socket-INET6-2.70/MANIFEST 2013-05-21 18:06:40.000000000 +0200
@@ -15,4 +15,5 @@
t/listen_port_only.t
t/pod-coverage.t
t/pod.t
+t/style-trailing-space.t
META.json
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/META.json
new/IO-Socket-INET6-2.70/META.json
--- old/IO-Socket-INET6-2.69/META.json 2011-11-28 13:57:54.000000000 +0100
+++ new/IO-Socket-INET6-2.70/META.json 2013-05-21 18:06:40.000000000 +0200
@@ -1,12 +1,10 @@
{
- "abstract" : "Object interface for AF_INET|AF_INET6 domain sockets",
+ "abstract" : "Object interface for AF_INET/AF_INET6 domain sockets",
"author" : [
- "This program is based on L<IO::Socket::INET> by Graham
Barr\n<[email protected]> and currently maintained by the Perl Porters.",
- "Modified by Rafael Martinez Torres <[email protected]>
and\nEuro6IX project.",
- "Modified further by Shlomi Fish <[email protected]>, while
disclaiming\nall copyrights."
+ "unknown"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.38, CPAN::Meta::Converter version
2.112621",
+ "generated_by" : "Module::Build version 0.3901, CPAN::Meta::Converter
version 2.120921",
"keywords" : [
"inet6",
"input",
@@ -29,7 +27,7 @@
"prereqs" : {
"build" : {
"requires" : {
- "Test::More" : 0
+ "Test::More" : "0"
}
},
"configure" : {
@@ -39,21 +37,21 @@
},
"runtime" : {
"requires" : {
- "Carp" : 0,
- "Errno" : 0,
- "Exporter" : 0,
- "IO::Socket" : 0,
- "Socket" : 0,
+ "Carp" : "0",
+ "Errno" : "0",
+ "Exporter" : "0",
+ "IO::Socket" : "0",
+ "Socket" : "0",
"Socket6" : "0.12",
- "strict" : 0,
- "warnings" : 0
+ "strict" : "0",
+ "warnings" : "0"
}
}
},
"provides" : {
"IO::Socket::INET6" : {
"file" : "lib/IO/Socket/INET6.pm",
- "version" : "2.69"
+ "version" : "2.70"
}
},
"release_status" : "stable",
@@ -65,5 +63,5 @@
"url" : "https://bitbucket.org/shlomif/perl-io-socket-inet6";
}
},
- "version" : "2.69"
+ "version" : "2.70"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/META.yml
new/IO-Socket-INET6-2.70/META.yml
--- old/IO-Socket-INET6-2.69/META.yml 2011-11-28 13:57:54.000000000 +0100
+++ new/IO-Socket-INET6-2.70/META.yml 2013-05-21 18:06:40.000000000 +0200
@@ -1,15 +1,13 @@
---
-abstract: 'Object interface for AF_INET|AF_INET6 domain sockets'
+abstract: 'Object interface for AF_INET/AF_INET6 domain sockets'
author:
- - "This program is based on L<IO::Socket::INET> by Graham
Barr\n<[email protected]> and currently maintained by the Perl Porters."
- - "Modified by Rafael Martinez Torres <[email protected]>
and\nEuro6IX project."
- - "Modified further by Shlomi Fish <[email protected]>, while
disclaiming\nall copyrights."
+ - unknown
build_requires:
Test::More: 0
configure_requires:
Module::Build: 0.36
dynamic_config: 1
-generated_by: 'Module::Build version 0.38, CPAN::Meta::Converter version
2.112621'
+generated_by: 'Module::Build version 0.3901, CPAN::Meta::Converter version
2.120921'
keywords:
- inet6
- input
@@ -28,7 +26,7 @@
provides:
IO::Socket::INET6:
file: lib/IO/Socket/INET6.pm
- version: 2.69
+ version: 2.70
requires:
Carp: 0
Errno: 0
@@ -41,4 +39,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: https://bitbucket.org/shlomif/perl-io-socket-inet6
-version: 2.69
+version: 2.70
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/Makefile.PL
new/IO-Socket-INET6-2.70/Makefile.PL
--- old/IO-Socket-INET6-2.69/Makefile.PL 2011-11-28 13:57:54.000000000
+0100
+++ new/IO-Socket-INET6-2.70/Makefile.PL 2013-05-21 18:06:40.000000000
+0200
@@ -1,22 +1,22 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.3800
+# Note: this file was auto-generated by Module::Build::Compat version 0.39_01
use ExtUtils::MakeMaker;
WriteMakefile
(
- 'PL_FILES' => {},
- 'INSTALLDIRS' => 'site',
'NAME' => 'IO::Socket::INET6',
- 'EXE_FILES' => [],
'VERSION_FROM' => 'lib/IO/Socket/INET6.pm',
'PREREQ_PM' => {
- 'warnings' => 0,
- 'Exporter' => 0,
'Carp' => 0,
- 'strict' => 0,
- 'Test::More' => 0,
- 'Socket6' => '0.12',
+ 'Errno' => 0,
+ 'Exporter' => 0,
'IO::Socket' => 0,
'Socket' => 0,
- 'Errno' => 0
- }
+ 'Socket6' => '0.12',
+ 'Test::More' => 0,
+ 'strict' => 0,
+ 'warnings' => 0
+ },
+ 'INSTALLDIRS' => 'site',
+ 'EXE_FILES' => [],
+ 'PL_FILES' => {}
)
;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/inc/Test/Run/Builder.pm
new/IO-Socket-INET6-2.70/inc/Test/Run/Builder.pm
--- old/IO-Socket-INET6-2.69/inc/Test/Run/Builder.pm 2011-11-28
13:57:54.000000000 +0100
+++ new/IO-Socket-INET6-2.70/inc/Test/Run/Builder.pm 2013-05-21
18:06:40.000000000 +0200
@@ -54,7 +54,7 @@
Test::Run::CmdLine::Iface->new(
{
'test_files' => [glob("t/*.t")],
- }
+ }
# 'backend_params' => $self->_get_backend_params(),
);
@@ -63,7 +63,7 @@
sub ACTION_tags
{
- return
+ return
system(qw(
ctags -f tags --recurse --totals
--exclude=blib/** --exclude=t/lib/**
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/lib/IO/Socket/INET6.pm
new/IO-Socket-INET6-2.70/lib/IO/Socket/INET6.pm
--- old/IO-Socket-INET6-2.69/lib/IO/Socket/INET6.pm 2011-11-28
13:57:54.000000000 +0100
+++ new/IO-Socket-INET6-2.70/lib/IO/Socket/INET6.pm 2013-05-21
18:06:40.000000000 +0200
@@ -16,7 +16,7 @@
# Do it so we won't import any symbols from IO::Socket which it does export
# by default:
-#
+#
# <LeoNerd> IO::Socket is stupidstupidstupid beyond belief. Despite being an
# object class, it has an import method
# <LeoNerd> So you have to use IO::Socket ();
@@ -41,7 +41,7 @@
use Errno;
@ISA = qw(IO::Socket);
-$VERSION = "2.69";
+$VERSION = "2.70";
#Purpose: allow protocol independent protocol and original interface.
my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
@@ -65,7 +65,7 @@
sub _sock_info {
my($addr,$port,$proto) = @_;
my $origport = $port;
- my @proto = ();
+ my @proto = ();
my @serv = ();
if (defined $addr) {
@@ -143,7 +143,7 @@
my $family = $arg->{Domain};
# in case no local and peer is given we prefer AF_INET6
# because we are IO::Socket::INET6
- $family ||= ! $arg->{LocalAddr} && ! $arg->{PeerAddr} && AF_INET6
+ $family ||= ! $arg->{LocalAddr} && ! $arg->{PeerAddr} && AF_INET6
|| AF_UNSPEC;
# parse Local*
@@ -166,12 +166,12 @@
} elsif (!$lport) {
$lport = '';
}
- }
+ }
my $type = $arg->{Type} || $socket_type{(getprotobynumber($proto))[0]};
# parse Peer*
- my($rport,$raddr);
+ my($rport,$raddr);
unless(exists $arg->{Listen}) {
($raddr,$rport) = _sock_info(
$arg->{PeerAddr},
@@ -193,7 +193,7 @@
my @flr;
if (@rres) {
# collect all combinations whith the same family in lres and rres
- # the order we search should be defined by the order of @rres,
+ # the order we search should be defined by the order of @rres,
# not @lres!
for( my $r=0;$r<@rres;$r+=5 ) {
for( my $l=0;$l<@lres;$l+=5) {
@@ -274,13 +274,13 @@
$rres = pack_sockaddr_in6_all(@sa_in6);
}
}
-
+
undef $@;
last if $sock->connect($rres);
return _error($sock, $!, $@ || "Timeout")
if ! $arg->{MultiHomed};
-
+
}
return $sock;
@@ -304,7 +304,7 @@
{
my $sock = shift;
$sock->SUPER::sockdomain(@_) || AF_INET6;
-}
+}
sub accept
{
@@ -314,12 +314,12 @@
return unless defined($new);
- ${*$new}{io_socket_domain} = ${*$sock}{io_socket_domain};
- ${*$new}{io_socket_type} = ${*$sock}{io_socket_type};
- ${*$new}{io_socket_proto} = ${*$sock}{io_socket_proto};
+ ${*$new}{io_socket_domain} = ${*$sock}{io_socket_domain};
+ ${*$new}{io_socket_type} = ${*$sock}{io_socket_type};
+ ${*$new}{io_socket_proto} = ${*$sock}{io_socket_proto};
return wantarray ? ($new, $peer) : $new;
-}
+}
sub bind {
@_ == 2 or
@@ -361,7 +361,7 @@
@_ == 1 or croak 'usage: $sock->sockflow()';
my ($sock) = @_;
return undef unless (my $name = $sock->sockname);
- ($sock->sockdomain == AF_INET6) ? (unpack_sockaddr_in6_all($name))[1] : 0;
+ ($sock->sockdomain == AF_INET6) ? (unpack_sockaddr_in6_all($name))[1] : 0;
}
sub sockscope
@@ -415,7 +415,7 @@
=head1 NAME
-IO::Socket::INET6 - Object interface for AF_INET|AF_INET6 domain sockets
+IO::Socket::INET6 - Object interface for AF_INET/AF_INET6 domain sockets
=head1 SYNOPSIS
@@ -446,7 +446,7 @@
PeerHost Synonym for PeerAddr
PeerPort Remote port or service <service>[(<no>)] | <no>
PeerFlow Remote flow information
- PeerScope Remote address scope
+ PeerScope Remote address scope
LocalAddr Local host bind address hostname[:port]
LocalHost Synonym for LocalAddr
LocalPort Local host bind port <service>[(<no>)] | <no>
@@ -460,7 +460,7 @@
ReusePort Set SO_REUSEPORT before binding
Broadcast Set SO_BROADCAST before binding
Timeout Timeout value for various operations
- MultiHomed Try all adresses for multi-homed hosts
+ MultiHomed Try all addresses for multi-homed hosts
Blocking Determine if connection will be blocking mode
If C<Listen> is defined then a listen socket is created, else if the
@@ -504,7 +504,7 @@
PeerPort => 'http(80)',
Proto => 'tcp');
-Suppose either you have no IPv6 connectivity or www.perl.org has no http
service on IPv6. Then,
+Suppose either you have no IPv6 connectivity or www.perl.org has no http
service on IPv6. Then,
(Trying all address/families until reach)
@@ -532,9 +532,9 @@
$sock = IO::Socket::INET6->new(PeerPort => 9999,
PeerAddr =>
Socket6::inet_ntop(AF_INET6,in6addr_broadcast),
- Proto => udp,
+ Proto => udp,
LocalAddr => 'localhost',
- Broadcast => 1 )
+ Broadcast => 1 )
or die "Can't bind : $@\n";
NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
@@ -560,7 +560,7 @@
=item configure ()
-This function exists in this module, but I (= Shlomi Fish) don't know what it
+This function exists in this module, but I (= Shlomi Fish) don't know what it
does, or understand it. It's also not tested anywhere. I'll be happy to be
enlightened.
@@ -609,7 +609,7 @@
=item peerflow ()
-Return the flow information part of the sockaddr structure for the socket
+Return the flow information part of the sockaddr structure for the socket
on the peer host
=item peerscope ()
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/t/host6.t
new/IO-Socket-INET6-2.70/t/host6.t
--- old/IO-Socket-INET6-2.69/t/host6.t 2011-11-28 13:57:54.000000000 +0100
+++ new/IO-Socket-INET6-2.70/t/host6.t 2013-05-21 18:06:40.000000000 +0200
@@ -58,7 +58,7 @@
# TEST
ok ($sockhost, "Checking for sockhost() success");
-
+
# TEST
ok ($sock->peerhost(), "Checking for peerhost() success");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/t/io_multihomed6.t
new/IO-Socket-INET6-2.70/t/io_multihomed6.t
--- old/IO-Socket-INET6-2.69/t/io_multihomed6.t 2011-11-28 13:57:54.000000000
+0100
+++ new/IO-Socket-INET6-2.70/t/io_multihomed6.t 2013-05-21 18:06:40.000000000
+0200
@@ -70,7 +70,7 @@
while (@r) {
my @values = splice(@r,0,5);
my ($fam,$addr) = @values[0,3];
- $addr =
+ $addr =
(
($fam == AF_INET)
? ( (unpack_sockaddr_in($addr))[1] )
@@ -122,7 +122,7 @@
# listener should not work for next connect
# so it needs to try second
- close($first);
+ close($first);
# make sure established connection works
my $fam0 = ( $cl->sockdomain == AF_INET ) ? 'inet':'inet6';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/t/io_sock6.t
new/IO-Socket-INET6-2.70/t/io_sock6.t
--- old/IO-Socket-INET6-2.69/t/io_sock6.t 2011-11-28 13:57:54.000000000
+0100
+++ new/IO-Socket-INET6-2.70/t/io_sock6.t 2013-05-21 18:06:40.000000000
+0200
@@ -183,7 +183,7 @@
# Test the numeric address directly because "localhost" usually maps
# to an IPv4 address.
-my $server = IO::Socket->new(
+my $server = IO::Socket->new(
Domain => AF_INET6,
Proto => 'udp',
LocalAddr => '::1');
@@ -332,7 +332,7 @@
print "ok 20\n";
} elsif( defined( $server_pid)) {
-
+
### Child
#
SERVER_LOOP: while (1) {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/t/io_udp6.t
new/IO-Socket-INET6-2.70/t/io_udp6.t
--- old/IO-Socket-INET6-2.69/t/io_udp6.t 2011-11-28 13:57:54.000000000
+0100
+++ new/IO-Socket-INET6-2.70/t/io_udp6.t 2013-05-21 18:06:40.000000000
+0200
@@ -66,7 +66,7 @@
# Make sure we don't import any extraneous symbols
# which may clash and emit warnings.
-#
+#
# See:
# http://qa.mandriva.com/show_bug.cgi?id=36889
use Socket ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-INET6-2.69/t/style-trailing-space.t
new/IO-Socket-INET6-2.70/t/style-trailing-space.t
--- old/IO-Socket-INET6-2.69/t/style-trailing-space.t 1970-01-01
01:00:00.000000000 +0100
+++ new/IO-Socket-INET6-2.70/t/style-trailing-space.t 2013-05-21
18:06:40.000000000 +0200
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval "use Test::TrailingSpace";
+if ($@)
+{
+ plan skip_all => "Test::TrailingSpace required for trailing space test.";
+}
+else
+{
+ plan tests => 1;
+}
+
+my $finder = Test::TrailingSpace->new(
+ {
+ root => '.',
+ filename_regex =>
qr/(?:(?:\.(?:t|pm|pl|PL|yml|json|arc|vim))|README|Changes|LICENSE|MANIFEST|ChangeLog)\z/,
+ },
+);
+
+# TEST
+$finder->no_trailing_space(
+ "No trailing space was found."
+);
+
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
