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 <opens...@dstoecker.de> + +- 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<known_attributes> - @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 <h.m.br...@xs4all.nl>" + ], + "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 <h.m.br...@xs4all.nl>" - ], - "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;
