Hello community,
here is the log from the commit of package perl-Text-CSV_XS for openSUSE:Factory checked in at 2018-10-04 18:57:14
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Text-CSV_XS (Old)
and /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Text-CSV_XS"
Thu Oct 4 18:57:14 2018 rev:38 rq:639346 version:1.37
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes 2018-07-18 22:38:08.662102452 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes 2018-10-04 18:57:22.475485126 +0200
@@ -1,0 +2,11 @@
+Sat Sep 29 08:46:43 UTC 2018 - Dirk Stoecker
+
+- update to 1.37
+ 1.37 - 2018-09-27, H.Merijn Brand
+ * Moved pod-tests from t to xt
+ * Add munge as alias for munge_column_names
+ * Update Devel::PPPort
+ * Simplified ref-check defines in XS (issue 12, thanks pali)
+ * Tested against perl-5.29.3
+
+-------------------------------------------------------------------
Old:
----
Text-CSV_XS-1.36.tgz
New:
----
Text-CSV_XS-1.37.tgz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Text-CSV_XS.spec ++++++
--- /var/tmp/diff_new_pack.7aZVOi/_old 2018-10-04 18:57:23.943483277 +0200
+++ /var/tmp/diff_new_pack.7aZVOi/_new 2018-10-04 18:57:23.943483277 +0200
@@ -17,13 +17,13 @@
Name: perl-Text-CSV_XS
-Version: 1.36
+Version: 1.37
Release: 0
%define cpan_name Text-CSV_XS
Summary: Comma-Separated Values Manipulation Routines
License: Artistic-1.0 OR GPL-1.0-or-later
Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/Text-CSV_XS/
+Url: https://metacpan.org/release/%{cpan_name}
Source0: https://cpan.metacpan.org/authors/id/H/HM/HMBRAND/%{cpan_name}-%{version}.tgz
Source1: cpanspec.yml
BuildRoot: %{_tmppath}/%{name}-%{version}-build
++++++ Text-CSV_XS-1.36.tgz -> Text-CSV_XS-1.37.tgz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/CSV_XS.pm new/Text-CSV_XS-1.37/CSV_XS.pm
--- old/Text-CSV_XS-1.36/CSV_XS.pm 2018-06-25 18:07:39.000000000 +0200
+++ new/Text-CSV_XS-1.37/CSV_XS.pm 2018-09-13 14:25:13.000000000 +0200
@@ -26,7 +26,7 @@
use Carp;
use vars qw( $VERSION @ISA @EXPORT_OK );
-$VERSION = "1.36";
+$VERSION = "1.37";
@ISA = qw( Exporter );
@EXPORT_OK = qw( csv );
XSLoader::load "Text::CSV_XS", $VERSION;
@@ -829,6 +829,8 @@
croak (q{usage: $csv->header ($fh, [ seps ], { options })});
}
+ defined $args{munge} && !defined $args{munge_column_names} and
+ $args{munge_column_names} = $args{munge}; # munge as alias
defined $args{detect_bom} or $args{detect_bom} = 1;
defined $args{set_column_names} or $args{set_column_names} = 1;
defined $args{munge_column_names} or $args{munge_column_names} = "lc";
@@ -2292,8 +2294,8 @@
=head2 known_attributes
X
- @attr = Text::CSV_CS->known_attributes;
- @attr = Text::CSV_CS::known_attributes;
+ @attr = Text::CSV_XS->known_attributes;
+ @attr = Text::CSV_XS::known_attributes;
@attr = $csv->known_attributes;
This method will return an ordered list of all the supported attributes as
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/CSV_XS.xs new/Text-CSV_XS-1.37/CSV_XS.xs
--- old/Text-CSV_XS-1.36/CSV_XS.xs 2018-06-25 18:17:45.000000000 +0200
+++ new/Text-CSV_XS-1.37/CSV_XS.xs 2018-09-27 11:52:22.000000000 +0200
@@ -57,15 +57,11 @@
#define unless(expr) if (!(expr))
-#define _is_arrayref(f) ( f && \
- (SvROK (f) || (SvRMAGICAL (f) && (mg_get (f), 1) && SvROK (f))) && \
- SvOK (f) && SvTYPE (SvRV (f)) == SVt_PVAV )
-#define _is_hashref(f) ( f && \
- (SvROK (f) || (SvRMAGICAL (f) && (mg_get (f), 1) && SvROK (f))) && \
- SvOK (f) && SvTYPE (SvRV (f)) == SVt_PVHV )
-#define _is_coderef(f) ( f && \
- (SvROK (f) || (SvRMAGICAL (f) && (mg_get (f), 1) && SvROK (f))) && \
- SvOK (f) && SvTYPE (SvRV (f)) == SVt_PVCV )
+#define _is_reftype(f,x) \
+ (f && ((SvGMAGICAL (f) && mg_get (f)) || 1) && SvROK (f) && SvTYPE (SvRV (f)) == x)
+#define _is_arrayref(f) _is_reftype (f, SVt_PVAV)
+#define _is_hashref(f) _is_reftype (f, SVt_PVHV)
+#define _is_coderef(f) _is_reftype (f, SVt_PVCV)
#define SvSetUndef(sv) sv_setpvn (sv, NULL, 0)
#define SvSetEmpty(sv) sv_setpvn_mg (sv, "", 0)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/ChangeLog new/Text-CSV_XS-1.37/ChangeLog
--- old/Text-CSV_XS-1.36/ChangeLog 2018-06-26 10:14:36.000000000 +0200
+++ new/Text-CSV_XS-1.37/ChangeLog 2018-09-27 11:40:09.000000000 +0200
@@ -1,3 +1,10 @@
+1.37 - 2018-09-27, H.Merijn Brand
+ * Moved pod-tests from t to xt
+ * Add munge as alias for munge_column_names
+ * Update Devel::PPPort
+ * Simplified ref-check defines in XS (issue 12, thanks pali)
+ * Tested against perl-5.29.3
+
1.36 - 2018-06-26, H.Merijn Brand
* Now also tested on FreeBSD-11.1
* Update to Devel::PPPort-3.42
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/MANIFEST new/Text-CSV_XS-1.37/MANIFEST
--- old/Text-CSV_XS-1.36/MANIFEST 2018-06-26 10:17:02.000000000 +0200
+++ new/Text-CSV_XS-1.37/MANIFEST 2018-09-27 13:43:25.000000000 +0200
@@ -6,8 +6,6 @@
CSV_XS.xs C part of the module
Makefile.PL Makefile generator
ppport.h Perl/Pollution/Portability script/include file
-t/00_pod.t Check if pod is valid
-t/01_pod.t Check if pod covers all
t/10_base.t Base tests (combine and parse only)
t/12_acc.t Accessor methods
t/15_flags.t Basic flag tests
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/META.json new/Text-CSV_XS-1.37/META.json
--- old/Text-CSV_XS-1.36/META.json 2018-06-26 10:17:02.000000000 +0200
+++ new/Text-CSV_XS-1.37/META.json 2018-09-27 13:43:25.000000000 +0200
@@ -1,64 +1,64 @@
{
+ "abstract" : "Comma-Separated Values manipulation routines",
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : 2
+ },
+ "author" : [
+ "H.Merijn Brand "
+ ],
+ "provides" : {
+ "Text::CSV_XS" : {
+ "file" : "CSV_XS.pm",
+ "version" : "1.37"
+ }
+ },
+ "name" : "Text-CSV_XS",
+ "generated_by" : "Author",
+ "release_status" : "stable",
+ "resources" : {
+ "license" : [
+ "http://dev.perl.org/licenses/"
+ ],
+ "x_IRC" : "irc://irc.perl.org/#csv",
+ "repository" : {
+ "url" : "https://github.com/Tux/Text-CSV_XS",
+ "web" : "https://github.com/Tux/Text-CSV_XS",
+ "type" : "git"
+ },
+ "homepage" : "https://metacpan.org/pod/Text::CSV_XS"
+ },
"prereqs" : {
"build" : {
"requires" : {
"Config" : "0"
- }
- },
- "runtime" : {
- "requires" : {
- "IO::Handle" : "0",
- "XSLoader" : "0",
- "perl" : "5.006001"
- },
- "recommends" : {
- "Encode" : "2.98"
- }
- },
+ }
+ },
"test" : {
"requires" : {
"Tie::Scalar" : "0",
"Test::More" : "0"
- }
- },
+ }
+ },
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "0"
- }
}
},
- "version" : "1.36",
- "license" : [
- "perl_5"
- ],
- "author" : [
- "H.Merijn Brand "
- ],
- "resources" : {
- "repository" : {
- "web" : "https://github.com/Tux/Text-CSV_XS",
- "type" : "git",
- "url" : "https://github.com/Tux/Text-CSV_XS"
+ "runtime" : {
+ "requires" : {
+ "XSLoader" : "0",
+ "IO::Handle" : "0",
+ "perl" : "5.006001"
},
- "x_IRC" : "irc://irc.perl.org/#csv",
- "license" : [
- "http://dev.perl.org/licenses/"
- ],
- "homepage" : "https://metacpan.org/pod/Text::CSV_XS"
- },
- "abstract" : "Comma-Separated Values manipulation routines",
- "meta-spec" : {
- "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
- "version" : 2
- },
- "generated_by" : "Author",
- "provides" : {
- "Text::CSV_XS" : {
- "file" : "CSV_XS.pm",
- "version" : "1.36"
+ "recommends" : {
+ "Encode" : "2.98"
}
- },
- "name" : "Text-CSV_XS",
- "release_status" : "stable",
- "dynamic_config" : 1
- }
+ }
+ },
+ "dynamic_config" : 1,
+ "version" : "1.37",
+ "license" : [
+ "perl_5"
+ ]
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/META.yml new/Text-CSV_XS-1.37/META.yml
--- old/Text-CSV_XS-1.36/META.yml 2018-06-26 10:17:02.000000000 +0200
+++ new/Text-CSV_XS-1.37/META.yml 2018-09-27 13:43:25.000000000 +0200
@@ -16,7 +16,7 @@
provides:
Text::CSV_XS:
file: CSV_XS.pm
- version: '1.36'
+ version: '1.37'
recommends:
Encode: '2.98'
requires:
@@ -30,4 +30,4 @@
homepage: https://metacpan.org/pod/Text::CSV_XS
license: http://dev.perl.org/licenses/
repository: https://github.com/Tux/Text-CSV_XS
-version: '1.36'
+version: '1.37'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/ppport.h new/Text-CSV_XS-1.37/ppport.h
--- old/Text-CSV_XS-1.36/ppport.h 2018-05-08 16:36:53.000000000 +0200
+++ new/Text-CSV_XS-1.37/ppport.h 2018-09-19 17:18:48.000000000 +0200
@@ -4,9 +4,9 @@
/*
----------------------------------------------------------------------
- ppport.h -- Perl/Pollution/Portability Version 3.42
+ ppport.h -- Perl/Pollution/Portability Version 3.43
- Automatically created by Devel::PPPort running under perl 5.026002.
+ Automatically created by Devel::PPPort running under perl 5.028000.
Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
includes in parts/inc/ instead.
@@ -21,7 +21,7 @@
=head1 NAME
-ppport.h - Perl/Pollution/Portability version 3.42
+ppport.h - Perl/Pollution/Portability version 3.43
=head1 SYNOPSIS
@@ -389,7 +389,7 @@
# Disable broken TRIE-optimization
BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if "$]" >= 5.009004 && "$]" <= 5.009005 }
-my $VERSION = 3.42;
+my $VERSION = 3.43;
my %opt = (
quiet => 0,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/t/00_pod.t new/Text-CSV_XS-1.37/t/00_pod.t
--- old/Text-CSV_XS-1.36/t/00_pod.t 2016-08-12 08:18:59.000000000 +0200
+++ new/Text-CSV_XS-1.37/t/00_pod.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,10 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More;
-
-eval "use Test::Pod 1.00";
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
-all_pod_files_ok ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/t/01_pod.t new/Text-CSV_XS-1.37/t/01_pod.t
--- old/Text-CSV_XS-1.36/t/01_pod.t 2016-08-12 08:18:59.000000000 +0200
+++ new/Text-CSV_XS-1.37/t/01_pod.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,10 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More;
-
-eval "use Test::Pod::Coverage tests => 1";
-plan skip_all => "Test::Pod::Coverage required for testing POD Coverage" if $@;
-pod_coverage_ok ("Text::CSV_XS", "Text::CSV_XS is covered");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/t/65_allow.t new/Text-CSV_XS-1.37/t/65_allow.t
--- old/Text-CSV_XS-1.36/t/65_allow.t 2017-03-02 13:28:39.000000000 +0100
+++ new/Text-CSV_XS-1.37/t/65_allow.t 2018-08-09 13:37:36.000000000 +0200
@@ -324,41 +324,42 @@
: "Abe", "#\\r\\n $gc fld 2");
}
- ok (1, "verbatim on getline (*FH)");
- open FH, ">", $tfn or die "$tfn: $!\n";
- print FH @str, "M^Abe^*\r\n";
- close FH;
+ my $fh;
+ ok (1, "verbatim on getline (\$fh)");
+ open $fh, ">", $tfn or die "$tfn: $!\n";
+ print $fh @str, "M^Abe^*\r\n";
+ close $fh;
foreach $gc (0, 1) {
$csv->verbatim ($gc);
- open FH, "<", $tfn or die "$tfn: $!\n";
+ open $fh, "<", $tfn or die "$tfn: $!\n";
my $row;
- ok ($row = $csv->getline (*FH), "#\\r\\n $gc getline");
+ ok ($row = $csv->getline ($fh), "#\\r\\n $gc getline");
is (@$row, 4, "#\\r\\n $gc fields");
is ($row->[2], "Abe", "#\\r\\n $gc fld 2");
is ($row->[3], "Timmerman", "#\\r\\n $gc fld 3");
- ok ($row = $csv->getline (*FH), "#\\r\\n $gc parse");
+ ok ($row = $csv->getline ($fh), "#\\r\\n $gc parse");
is (@$row, 3, "#\\r\\n $gc fields");
is ($row->[2], $gc ? "Abe\nTimmerman"
: "Abe", "#\\r\\n $gc fld 2");
}
$gc = $csv->verbatim ();
- ok (my $row = $csv->getline (*FH), "#\\r\\n $gc parse EOF");
+ ok (my $row = $csv->getline ($fh), "#\\r\\n $gc parse EOF");
is (@$row, 3, "#\\r\\n $gc fields");
is ($row->[2], "*\r\n", "#\\r\\n $gc fld 2");
- close FH;
+ close $fh;
$csv = Text::CSV_XS->new ({
binary => 0,
verbatim => 1,
eol => "#\r\n",
});
- open my $fh, ">", $tfn or die "$tfn: $!\n";
+ open $fh, ">", $tfn or die "$tfn: $!\n";
print $fh $str[1];
close $fh;
open $fh, "<", $tfn or die "$tfn: $!\n";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/t/80_diag.t new/Text-CSV_XS-1.37/t/80_diag.t
--- old/Text-CSV_XS-1.36/t/80_diag.t 2017-10-19 16:22:21.000000000 +0200
+++ new/Text-CSV_XS-1.37/t/80_diag.t 2018-08-09 13:37:36.000000000 +0200
@@ -13,10 +13,11 @@
plan skip_all => "Cannot load Text::CSV_XS" if $@;
require "./t/util.pl";
- open XS, "<", "CSV_XS.xs" or die "Cannot read error messages from XS\n";
- while (<XS>) {
+ open my $fh, "<", "CSV_XS.xs" or die "Cannot read error messages from XS\n";
+ while (<$fh>) {
m/^ \{ ([0-9]{4}), "([^"]+)"\s+\}/ and $err{$1} = $2;
}
+ close $fh;
}
$| = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Text-CSV_XS-1.36/t/91_csv_cb.t new/Text-CSV_XS-1.37/t/91_csv_cb.t
--- old/Text-CSV_XS-1.36/t/91_csv_cb.t 2018-02-28 10:35:30.000000000 +0100
+++ new/Text-CSV_XS-1.37/t/91_csv_cb.t 2018-08-09 13:37:36.000000000 +0200
@@ -17,9 +17,9 @@
"foo,bar,baz\n".
"1,2,3\n".
"2,a b,\n";
-open FH, ">", $tfn or die "$tfn: $!";
-print FH $data;
-close FH;
+open my $fh, ">", $tfn or die "$tfn: $!";
+print $fh $data;
+close $fh;
my $aoa = [
[qw( foo bar baz )],
@@ -88,8 +88,8 @@
{ baz => "", boo => "a b", foo => 2 }], "Munge with hash");
}
-open FH, ">>", $tfn or die "$tfn: $!";
-print FH <<"EOD";
+open $fh, ">>", $tfn or die "$tfn: $!";
+print $fh <<"EOD";
3,3,3
4,5,6
5,7,9
@@ -97,7 +97,7 @@
7,11,15
8,13,18
EOD
-close FH;
+close $fh;
is_deeply (csv (in => $tfn,
filter => { foo => sub { $_ > 2 && $_[1][2] - $_[1][1] < 4 }}), [
@@ -183,8 +183,8 @@
"on_in with key works");
}
-open FH, ">", $tfn or die "$tfn: $!";
-print FH <<"EOD";
+open $fh, ">", $tfn or die "$tfn: $!";
+print $fh <<"EOD";
3,3,3
5,7,9
@@ -196,7 +196,7 @@
""
8,13,18
EOD
-close FH;
+close $fh;
is_deeply (csv (in => $tfn, filter => "not_blank"),
[[3,3,3],[5,7,9],["",""],["",""],["",""," ",""],
@@ -215,15 +215,15 @@
"filter => filled");
# Count rows in different ways
-open FH, ">", $tfn or die "$tfn: $!";
-print FH <<"EOD";
+open $fh, ">", $tfn or die "$tfn: $!";
+print $fh <<"EOD";
foo,bar,baz
1,,3
0,"d
€",4
999,999,
EOD
-close FH;
+close $fh;
{ my $n = 0;
open my $fh, "<", $tfn;
