commit perl-Text-CSV_XS for openSUSE:Factory

2020-07-30 Thread root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2020-07-30 09:58:22

Comparing /work/SRC/openSUSE:Factory/perl-Text-CSV_XS (Old)
 and  /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new.3592 (New)


Package is "perl-Text-CSV_XS"

Thu Jul 30 09:58:22 2020 rev:43 rq:823360 version:1.44

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2020-06-03 20:30:47.692858491 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new.3592/perl-Text-CSV_XS.changes  
2020-07-30 09:59:37.227199458 +0200
@@ -1,0 +2,12 @@
+Wed Jul 29 03:15:14 UTC 2020 - Tina Müller 
+
+- updated to 1.44
+   see /usr/share/doc/packages/perl-Text-CSV_XS/ChangeLog
+
+  1.44 - 2020-07-22, H.Merijn Brand
+  * EBCDIC now fully functional
+  * Prevent false negative CPANTESTERS fail reports
+  * Fully tested on perl-5.32.0 and perl-5.33.0
+  * Fix partly decoded fields in header (found by Eric Brine)
+
+---

Old:

  Text-CSV_XS-1.43.tgz

New:

  Text-CSV_XS-1.44.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.T5fX0J/_old  2020-07-30 09:59:38.083200225 +0200
+++ /var/tmp/diff_new_pack.T5fX0J/_new  2020-07-30 09:59:38.087200229 +0200
@@ -17,7 +17,7 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:1.43
+Version:1.44
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:Comma-separated values manipulation routines

++ Text-CSV_XS-1.43.tgz -> Text-CSV_XS-1.44.tgz ++
 2501 lines of diff (skipped)

commit perl-Text-CSV_XS for openSUSE:Factory

2020-06-03 Thread root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2020-06-03 20:30:33

Comparing /work/SRC/openSUSE:Factory/perl-Text-CSV_XS (Old)
 and  /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new.3606 (New)


Package is "perl-Text-CSV_XS"

Wed Jun  3 20:30:33 2020 rev:42 rq:809880 version:1.43

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2020-02-22 18:59:24.541519673 +0100
+++ 
/work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new.3606/perl-Text-CSV_XS.changes  
2020-06-03 20:30:47.692858491 +0200
@@ -1,0 +2,31 @@
+Thu May 28 03:14:24 UTC 2020 - Tina Müller 
+
+updated to 1.43
+   see /usr/share/doc/packages/perl-Text-CSV_XS/ChangeLog
+
+  1.43 - 2020-05-27, H.Merijn Brand
+  * Add --parser-opt[=value] to csv-check
+  * Add -L & -X to csv-check
+  * Fix undef value in attribute setters for strings (issue 24)
+  * Document quote (undef) is not supported
+  
+
+---
+Wed May 20 03:14:18 UTC 2020 - Tina Müller 
+
+updated to 1.42
+   see /usr/share/doc/packages/perl-Text-CSV_XS/ChangeLog
+
+  1.42 - 2020-05-19, H.Merijn Brand
+  * Update to Devel::PPPort-3.58
+  * Unicode fixes for csv2xls and csv2xlsx
+  * Add internal buffers to cache diagnostics
+  * Fix positional reporting in examples/csv-check
+  * Allow passing CSV parsing attributes to csv-check
+  * Proof reading - doc fixes by Klaus Baldermann  (PR#21)
+  * Fix type caching (RT#132344)
+  * Small doc fix by Nick Tonkin <1nickt> (PR#22)
+  * Fix sep=; being ignored in ->header (issue 23)
+  
+
+---

Old:

  Text-CSV_XS-1.41.tgz

New:

  Text-CSV_XS-1.43.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.UoTmlF/_old  2020-06-03 20:30:48.448860789 +0200
+++ /var/tmp/diff_new_pack.UoTmlF/_new  2020-06-03 20:30:48.452860802 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Text-CSV_XS
 #
-# Copyright (c) 2020 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2020 SUSE LLC
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -17,19 +17,19 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:1.41
+Version:1.43
 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:https://metacpan.org/release/%{cpan_name}
+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
 BuildRequires:  perl
 BuildRequires:  perl-macros
-Recommends: perl(Encode) >= 3.02
+Recommends: perl(Encode) >= 3.06
 %{perl_requires}
 
 %description

++ Text-CSV_XS-1.41.tgz -> Text-CSV_XS-1.43.tgz ++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-1.41/CSV_XS.pm 
new/Text-CSV_XS-1.43/CSV_XS.pm
--- old/Text-CSV_XS-1.41/CSV_XS.pm  2020-01-31 07:59:54.0 +0100
+++ new/Text-CSV_XS-1.43/CSV_XS.pm  2020-05-27 08:46:14.0 +0200
@@ -26,10 +26,10 @@
 use Carp;
 
 use vars   qw( $VERSION @ISA @EXPORT_OK );
-$VERSION   = "1.41";
+$VERSION   = "1.43";
 @ISA   = qw( Exporter );
 @EXPORT_OK = qw( csv );
-XSLoader::load "Text::CSV_XS", $VERSION;
+XSLoader::load ("Text::CSV_XS", $VERSION);
 
 sub PV { 0 }
 sub IV { 1 }
@@ -268,13 +268,13 @@
 formula=> 38,
 strict => 42,
 undef_str  => 46,
+types  => 50,
 );
 
 # A `character'
 sub _set_attr_C {
 my ($self, $name, $val, $ec) = @_;
-defined $val or $val = 0;
-utf8::decode ($val);
+defined $val and utf8::decode ($val);
 $self->{$name} = $val;
 $ec = _check_sanity ($self) and croak ($self->SetDiag ($ec));
 $self->_cache_set ($_cache_id{$name}, $val);
@@ -588,10 +588,12 @@
if (my $types = shift) {
$self->{_types} = join "", map { chr } @{$types};
$self->{types}  = $types;
+   $self->_cache_set ($_cache_id{types}, $self->{_types});
}
else {
delete $self->{types};
delete $self->{_types};
+   $self->_cache_set ($_cache_id{types}, undef);
undef;
}
}
@@ -911,6 +913,10 @@
}
 
 my ($ahead, $e

commit perl-Text-CSV_XS for openSUSE:Factory

2020-02-22 Thread root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2020-02-22 18:59:17

Comparing /work/SRC/openSUSE:Factory/perl-Text-CSV_XS (Old)
 and  /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new.26092 (New)


Package is "perl-Text-CSV_XS"

Sat Feb 22 18:59:17 2020 rev:41 rq:774929 version:1.41

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2019-09-25 00:46:12.797917764 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new.26092/perl-Text-CSV_XS.changes 
2020-02-22 18:59:24.541519673 +0100
@@ -1,0 +2,15 @@
+Mon Feb 17 03:13:29 UTC 2020 -  
+
+- updated to 1.41
+   see /usr/share/doc/packages/perl-Text-CSV_XS/ChangeLog
+
+  1.41 - 2020-02-16, H.Merijn Brand
+  * Update to Devel::PPPort-3.56
+  * csv2xls uses sheetname as csv2xlsx
+  * csv2xlsx: support images (each image gets its own tab)
+  * More docs. (Data validation)
+  * It's 2020
+  * No binary literals in fixed error messages
+  * Fix auto_diag > 2 to die when headers are used (issue 19)
+
+---

Old:

  Text-CSV_XS-1.40.tgz

New:

  Text-CSV_XS-1.41.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.KCsBTv/_old  2020-02-22 18:59:25.585521694 +0100
+++ /var/tmp/diff_new_pack.KCsBTv/_new  2020-02-22 18:59:25.589521703 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Text-CSV_XS
 #
-# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2020 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-Text-CSV_XS
-Version:1.40
+Version:1.41
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:Comma-separated values manipulation routines
@@ -29,7 +29,7 @@
 BuildRoot:  %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
 BuildRequires:  perl-macros
-Recommends: perl(Encode) >= 3.01
+Recommends: perl(Encode) >= 3.02
 %{perl_requires}
 
 %description
@@ -42,7 +42,7 @@
 
 %prep
 %setup -q -n %{cpan_name}-%{version}
-find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
+find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path 
"*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644
 # MANUAL BEGIN
 sed -i -e 's,/pro/bin/perl,/usr/bin/perl,' examples/*
 # MANUAL END

++ Text-CSV_XS-1.40.tgz -> Text-CSV_XS-1.41.tgz ++
 11487 lines of diff (skipped)

commit perl-Text-CSV_XS for openSUSE:Factory

2019-09-24 Thread root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2019-09-25 00:46:10

Comparing /work/SRC/openSUSE:Factory/perl-Text-CSV_XS (Old)
 and  /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new.7948 (New)


Package is "perl-Text-CSV_XS"

Wed Sep 25 00:46:10 2019 rev:40 rq:731279 version:1.40

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2019-03-24 14:56:47.483203393 +0100
+++ 
/work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new.7948/perl-Text-CSV_XS.changes  
2019-09-25 00:46:12.797917764 +0200
@@ -1,0 +2,16 @@
+Mon Sep 16 12:24:19 UTC 2019 -  
+
+- updated to 1.40
+   see /usr/share/doc/packages/perl-Text-CSV_XS/ChangeLog
+
+  1.40 - 2019-09-15, H.Merijn Brand
+  * Update to Devel::PPPort-3.52
+  * Development perl is now 5.28.2
+  * [csv2xlsx] sheetnames are restricted to 31 characters
+  * Generate cpanfile
+  * Add munge type "db"
+  * [csv2xls/csv2xlsx] do not generate xls/xlsx on empty CSV (issue#18)
+  * New: support $csv->formula (sub { ... })
+  * Support stacked encodings
+
+---

Old:

  Text-CSV_XS-1.39.tgz

New:

  Text-CSV_XS-1.40.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.rZ7xPw/_old  2019-09-25 00:46:13.265917690 +0200
+++ /var/tmp/diff_new_pack.rZ7xPw/_new  2019-09-25 00:46:13.265917690 +0200
@@ -17,10 +17,10 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:1.39
+Version:1.40
 Release:0
 %define cpan_name Text-CSV_XS
-Summary:Comma-Separated Values Manipulation Routines
+Summary:Comma-separated values manipulation routines
 License:Artistic-1.0 OR GPL-1.0-or-later
 Group:  Development/Libraries/Perl
 Url:https://metacpan.org/release/%{cpan_name}
@@ -29,7 +29,7 @@
 BuildRoot:  %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
 BuildRequires:  perl-macros
-Recommends: perl(Encode) >= 2.98
+Recommends: perl(Encode) >= 3.01
 %{perl_requires}
 
 %description
@@ -48,11 +48,11 @@
 # MANUAL END
 
 %build
-%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
-%{__make} %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
+make %{?_smp_mflags}
 
 %check
-%{__make} test
+make test
 
 %install
 %perl_make_install

++ Text-CSV_XS-1.39.tgz -> Text-CSV_XS-1.40.tgz ++
 3598 lines of diff (skipped)

commit perl-Text-CSV_XS for openSUSE:Factory

2019-03-24 Thread root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2019-03-24 14:56:46

Comparing /work/SRC/openSUSE:Factory/perl-Text-CSV_XS (Old)
 and  /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new.25356 (New)


Package is "perl-Text-CSV_XS"

Sun Mar 24 14:56:46 2019 rev:39 rq:686435 version:1.39

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2018-10-04 18:57:22.475485126 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new.25356/perl-Text-CSV_XS.changes 
2019-03-24 14:56:47.483203393 +0100
@@ -1,0 +2,20 @@
+Mon Mar 18 09:28:19 UTC 2019 - Pedro Monreal Gonzalez 

+
+- update to 1.39
+  1.39 - 2019-03-15, H.Merijn Brand
+* It's 2019
+* Fix tests to skip on Encode failing (PR#17 charsbar + klapperl)
+* Tested on Z/OS (s390x - Hercules) :)
+* Test with new Module::CPANTS::Analyse
+* Add options -w/-b/-Z to csvdiff
+* Fix strict on streaming EOF
+* Now also tested with cperl
+ 
+  1.38 - 2018-12-30, H.Merijn Brand
+* Name the duplicate headers on error 1013
+* Add missing attributes to default list (doc only, David H. Gutteridge)
+* Add support for combined keys
+* Look at $NO_COLOR for csvdiff
+* Add support for key-value pair
+
+---

Old:

  Text-CSV_XS-1.37.tgz

New:

  Text-CSV_XS-1.39.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.nNkDTY/_old  2019-03-24 14:56:47.995203339 +0100
+++ /var/tmp/diff_new_pack.nNkDTY/_new  2019-03-24 14:56:47.995203339 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Text-CSV_XS
 #
-# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2019 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
@@ -12,12 +12,12 @@
 # license that conforms to the Open Source Definition (Version 1.9)
 # published by the Open Source Initiative.
 
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
 #
 
 
 Name:   perl-Text-CSV_XS
-Version:1.37
+Version:1.39
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:Comma-Separated Values Manipulation Routines

++ Text-CSV_XS-1.37.tgz -> Text-CSV_XS-1.39.tgz ++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-1.37/CSV_XS.pm 
new/Text-CSV_XS-1.39/CSV_XS.pm
--- old/Text-CSV_XS-1.37/CSV_XS.pm  2018-09-13 14:25:13.0 +0200
+++ new/Text-CSV_XS-1.39/CSV_XS.pm  2019-02-27 10:03:20.0 +0100
@@ -1,6 +1,6 @@
 package Text::CSV_XS;
 
-# Copyright (c) 2007-2018 H.Merijn Brand.  All rights reserved.
+# Copyright (c) 2007-2019 H.Merijn Brand.  All rights reserved.
 # Copyright (c) 1998-2001 Jochen Wiedmann. All rights reserved.
 # Copyright (c) 1997 Alan Citterman.   All rights reserved.
 #
@@ -26,7 +26,7 @@
 use Carp;
 
 use vars   qw( $VERSION @ISA @EXPORT_OK );
-$VERSION   = "1.37";
+$VERSION   = "1.39";
 @ISA   = qw( Exporter );
 @EXPORT_OK = qw( csv );
 XSLoader::load "Text::CSV_XS", $VERSION;
@@ -430,6 +430,15 @@
 $self->{strict};
 } # always_quote
 
+sub _SetDiagInfo {
+my ($self, $err, $msg) = @_;
+$self->SetDiag ($err);
+my $em  = $self->error_diag;
+$em =~ s/^\d+$// and $msg =~ s/^/# /;
+my $sep = $em =~ m/[;\n]$/ ? "\n\t" : ": ";
+join $sep => grep m/\S\S\S/ => $em, $msg;
+} # _SetDiagInfo
+
 sub _supported_formula {
 my ($self, $f) = @_;
 defined $f or return 5;
@@ -440,8 +449,7 @@
 $f =~ m/^(?: 4 | empty | )$/xi ? 4 :
 $f =~ m/^(?: 5 | undef   )$/xi ? 5 : do {
$self ||= "Text::CSV_XS";
-   $self->SetDiag (1500);
-   croak "formula-handling '$f' is not supported\n";
+   croak ($self->_SetDiagInfo (1500, "formula-handling '$f' is not 
supported"));
};
 } # _supported_formula
 
@@ -843,7 +851,7 @@
 
 if (defined $args{sep_set}) {
ref $args{sep_set} eq "ARRAY" or
-   croak ($self->SetDiag (1500, "sep_set should be an array ref"));
+   croak ($self->_SetDiagInfo (1500, "sep_set should be an array 
ref"));
@seps =  @{$args{sep_set}};
}
 
@@ -920,9 +928,12 @@
@hdr = map { $args{munge_column_names}->($_)   } @hdr;
 ref $args{munge_column_names} eq "HASH" and
@hdr = map { $args{munge_column_names}->{$_} || $_ } @hdr;
-my %hdr = map { $_ => 1 } @hdr;
-exists $hdr{""}   and croak ($self->SetDiag (1012));
-keys %hdr == @hdr o

commit perl-Text-CSV_XS for openSUSE:Factory

2018-10-04 Thread root 
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.0 +0200
+++ new/Text-CSV_XS-1.37/CSV_XS.pm  2018-09-13 14:25:13.0 +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.0 +0200
+++ new/Text-CSV_XS-1.37/CSV_XS.xs  2018-09-27 11:52:22.0 +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.0 +0200
+++ new/Text-CSV_XS-1.37/ChangeLog  2018-09-27 11:4

commit perl-Text-CSV_XS for openSUSE:Factory

2018-07-18 Thread root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2018-07-18 22:38:07

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"

Wed Jul 18 22:38:07 2018 rev:37 rq:623050 version:1.36

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2018-03-24 16:09:39.363878028 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2018-07-18 22:38:08.662102452 +0200
@@ -1,0 +2,15 @@
+Mon Jul 16 06:51:55 UTC 2018 - co...@suse.com
+
+- updated to 1.36
+   see /usr/share/doc/packages/perl-Text-CSV_XS/ChangeLog
+
+  1.36 - 2018-06-26, H.Merijn Brand
+  * Now also tested on FreeBSD-11.1
+  * Update to Devel::PPPort-3.42
+  * Fixed memory leak (Thanks DaveM)
+  * Add undef_str attribute
+  * Tested against perl-5.28.0
+  * Move from DynaLoader to XSLoader
+  * Tested on Synology DSM
+
+---

Old:

  Text-CSV_XS-1.35.tgz

New:

  Text-CSV_XS-1.36.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.pt8ftz/_old  2018-07-18 22:38:09.642099206 +0200
+++ /var/tmp/diff_new_pack.pt8ftz/_new  2018-07-18 22:38:09.642099206 +0200
@@ -17,11 +17,11 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:1.35
+Version:1.36
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:Comma-Separated Values Manipulation Routines
-License:Artistic-1.0 or GPL-1.0+
+License:Artistic-1.0 OR GPL-1.0-or-later
 Group:  Development/Libraries/Perl
 Url:http://search.cpan.org/dist/Text-CSV_XS/
 Source0:
https://cpan.metacpan.org/authors/id/H/HM/HMBRAND/%{cpan_name}-%{version}.tgz
@@ -29,7 +29,7 @@
 BuildRoot:  %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
 BuildRequires:  perl-macros
-Recommends: perl(Encode) >= 2.93
+Recommends: perl(Encode) >= 2.98
 %{perl_requires}
 
 %description

++ Text-CSV_XS-1.35.tgz -> Text-CSV_XS-1.36.tgz ++
 2670 lines of diff (skipped)

commit perl-Text-CSV_XS for openSUSE:Factory

2018-03-24 Thread root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2018-03-24 16:09:37

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"

Sat Mar 24 16:09:37 2018 rev:36 rq:590307 version:1.35

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2017-12-15 14:01:15.816554964 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2018-03-24 16:09:39.363878028 +0100
@@ -1,0 +2,17 @@
+Thu Mar 22 10:32:57 UTC 2018 - pmonrealgonza...@suse.com
+
+- updated to 1.35
+   see /usr/share/doc/packages/perl-Text-CSV_XS/ChangeLog
+
+  1.35   - 2018-03-21, H.Merijn Brand
+  * Remove META.yml from MANIFEST.skip
+  * Use UNIVERSAL::isa to protect against unblessed references
+  * -Wformat warning (RT#123729)
+  * Make detect_bom result available
+  * It's 2018
+  * Add csv (out => \"skip") - suppress output deliberately
+  * Allow sub as top-level filter
+  * Tested against Test2::Harness-0.001062 (yath test)
+  * Tested against perl-5.27.10
+
+---

Old:

  Text-CSV_XS-1.34.tgz

New:

  Text-CSV_XS-1.35.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.hsPcP9/_old  2018-03-24 16:09:40.555835059 +0100
+++ /var/tmp/diff_new_pack.hsPcP9/_new  2018-03-24 16:09:40.559834915 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Text-CSV_XS
 #
-# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2018 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-Text-CSV_XS
-Version:1.34
+Version:1.35
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:Comma-Separated Values Manipulation Routines

++ Text-CSV_XS-1.34.tgz -> Text-CSV_XS-1.35.tgz ++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-1.34/CSV_XS.pm 
new/Text-CSV_XS-1.35/CSV_XS.pm
--- old/Text-CSV_XS-1.34/CSV_XS.pm  2017-11-05 19:47:38.0 +0100
+++ new/Text-CSV_XS-1.35/CSV_XS.pm  2018-02-28 10:26:41.0 +0100
@@ -1,6 +1,6 @@
 package Text::CSV_XS;
 
-# Copyright (c) 2007-2017 H.Merijn Brand.  All rights reserved.
+# Copyright (c) 2007-2018 H.Merijn Brand.  All rights reserved.
 # Copyright (c) 1998-2001 Jochen Wiedmann. All rights reserved.
 # Copyright (c) 1997 Alan Citterman.   All rights reserved.
 #
@@ -26,7 +26,7 @@
 use Carp;
 
 use vars   qw( $VERSION @ISA @EXPORT_OK );
-$VERSION   = "1.34";
+$VERSION   = "1.35";
 @ISA   = qw( DynaLoader Exporter );
 @EXPORT_OK = qw( csv );
 bootstrap Text::CSV_XS $VERSION;
@@ -91,6 +91,8 @@
 _COLUMN_NAMES  => undef,
 _BOUND_COLUMNS => undef,
 _AHEAD => undef,
+
+ENCODING   => undef,
 );
 my %attr_alias = (
 quote_always   => "always_quote",
@@ -609,8 +611,10 @@
 my $self = shift;
 my @diag = (0 + $last_new_err, $last_new_err, 0, 0, 0);
 
+# Docs state to NEVER use UNIVERSAL::isa, because it will *never* call an
+# overridden isa method in any class. Well, that is exacly what I want here
 if ($self && ref $self && # Not a class method or direct call
-$self->isa (__PACKAGE__) && exists $self->{_ERROR_DIAG}) {
+UNIVERSAL::isa ($self, __PACKAGE__) && exists $self->{_ERROR_DIAG}) {
$diag[0] = 0 + $self->{_ERROR_DIAG};
$diag[1] = $self->{_ERROR_DIAG};
$diag[2] = 1 + $self->{_ERROR_POS} if exists $self->{_ERROR_POS};
@@ -857,6 +861,8 @@
elsif ($hdr =~ s/^\x84\x31\x95\x33//) { $enc = "gb-18030"   }
elsif ($hdr =~ s/^\x{feff}//) { $enc = ""   }
 
+   $self->{ENCODING} = uc $enc;
+
$hdr eq "" and croak ($self->SetDiag (1010));
 
if ($enc) {
@@ -1079,9 +1085,11 @@
 $enc =~ m/^[-\w.]+$/ and $enc = ":encoding($enc)";
 
 my $fh;
-my $cls = 0;   # If I open a file, I have to close it
-my $in  = delete $attr{in}  || delete $attr{file} or croak $csv_usage;
-my $out = delete $attr{out} || delete $attr{file};
+my $sink = 0;
+my $cls  = 0;  # If I open a file, I have to close it
+my $in   = delete $attr{in}  || delete $attr{file} or croak $csv_usage;
+my $out  = exists $attr{out} && !$attr{out} ? \"skip"
+: delete $attr{out} || delete $attr{file};
 
 ref $in eq "

commit perl-Text-CSV_XS for openSUSE:Factory

2017-12-15 Thread root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2017-12-15 14:01:12

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"

Fri Dec 15 14:01:12 2017 rev:35 rq:556508 version:1.34

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2017-10-11 22:55:22.876612066 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2017-12-15 14:01:15.816554964 +0100
@@ -1,0 +2,21 @@
+Sun Dec 10 14:13:18 UTC 2017 - co...@suse.com
+
+- updated to 1.34
+   see /usr/share/doc/packages/perl-Text-CSV_XS/ChangeLog
+
+  1.34 - 2017-11-05, H.Merijn Brand
+  * Bad arg for formula (like "craok") will now die with error 1500
+  * Row report in formula reporting was off by 1
+  * Add a prominent section about BOM handling
+  * Make sheet label more portable (csv2xlsx)
+  * Allow munge => \%hash
+  * Preserve first row in csv (set_column_names => 0)
+  
+  1.33 - 2017-10-19, H.Merijn Brand
+  * Small additional fix for eol = 
 + BOM
+  * Updated doc for example files
+  * Add support for formula actions (issue 11)
+- csv2xls and csv2xlsx now warn by default
+  * Reset file info on ->header call (RT#123320)
+
+---

Old:

  Text-CSV_XS-1.32.tgz

New:

  Text-CSV_XS-1.34.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.02jKLX/_old  2017-12-15 14:01:18.256437180 +0100
+++ /var/tmp/diff_new_pack.02jKLX/_new  2017-12-15 14:01:18.280436021 +0100
@@ -17,7 +17,7 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:1.32
+Version:1.34
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:Comma-Separated Values Manipulation Routines
@@ -29,7 +29,7 @@
 BuildRoot:  %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
 BuildRequires:  perl-macros
-Recommends: perl(Encode) >= 2.92
+Recommends: perl(Encode) >= 2.93
 %{perl_requires}
 
 %description

++ Text-CSV_XS-1.32.tgz -> Text-CSV_XS-1.34.tgz ++
 1893 lines of diff (skipped)

commit perl-Text-CSV_XS for openSUSE:Factory

2017-10-11 Thread root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2017-10-11 22:55:21

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"

Wed Oct 11 22:55:21 2017 rev:34 rq:532539 version:1.32

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2014-03-18 14:17:02.0 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2017-10-11 22:55:22.876612066 +0200
@@ -1,0 +2,172 @@
+Sun Oct  8 08:18:22 UTC 2017 - co...@suse.com
+
+- updated to 1.32
+   see /usr/share/doc/packages/perl-Text-CSV_XS/ChangeLog
+
+  1.32 - 2017-09-15, H.Merijn Brand
+  * Add keep_headers attribute to csv ()
+  * Fix on_in when used in combination with key
+  * Fail on invalid arguments to csv
+  * Fix header method on EOL = CR (RT#122764)
+  
+  1.31 - 2017-06-13, H.Merijn Brand
+  * Fix already decoded BOM in headers
+  * New options in csv-check
+  * Some perlcritic
+  * "escape" is alias for "escape_char" for consistency.
+  * Code cleanup and more tests (Devel::Cover)
+  * Improve csv-check auto-sep-detection
+  
+  1.30 - 2017-06-08, H.Merijn Brand
+  * Add csv (..., out => ...) syntax examples (issue 7)
+  * Disable escape_null for undefined escape_char
+  * Fix ->say for bound columns (RT#121576)
+  * Update to Devel::PPPort 3.36
+  * Tested under 5.26.0 and 5.27.0
+  * Doc changes and additions
+  
+  1.29 - 2017-04-25, H.Merijn Brand
+  * More docs for bind_colmns (RT#121350)
+  * New attribute "strict" (also addresses RT#121350)
+  
+  1.28 - 2017-03-22, H.Merijn Brand
+  * Fix length problem with bound empty fields and UTF-8 (RT#120655)
+  
+  1.27 - 2017-03-02, H.Merijn Brand
+  * Remove unneeded done_testing (Paul Howarth)
+  * Attribute sep/sep_char is not allowed to be undefined
+  * Increased test coverage: added errors 1008 and 1014
+  * Default for escape_null in csv () is now false
+  * It's 2017
+  * New error code for illegal argument(s)/parameter(s) (RT#119827)
+  * Fix tests for perl without dot in @INC
+  * Fix crlf issue for csv () on Windows (RT#120466)
+  
+  1.26 - 2016-11-29, H.Merijn Brand
+  * Disable some Unicode related tests for unhealthy $PERL_UNICODE
+(RT#117856)
+  * is_missing (0) on empty line returns 1 for keep_meta_info = true
+(issue 27 on github)
+  
+  1.25 - 2016-08-28, H.Merijn Brand
+  * Allow lc, uc, and coderef for csv () headers attribute
+  * Document for eof when the last line has an error (RT#115954)
+  * Allow csv () to call header () with all supported arguments
+  * Add some docs for bind_columns
+  
+  1.24 - 2016-07-09, H.Merijn Brand
+  * Fix typo in docs example code (issue#4, joevak)
+  * Set auto-wrap on for csv2xls with embedded newlines
+  * Add examples/csv2xlsx, the MSExcel-2007+ version of csv2xls
+Includes new feature to merge multiple CSV's into a single xlsx
+  * Slight modification in examples
+  * Fix parse error in complex option combo (RT#115953)
+- requires perl-5.6.2 or newer
+  
+  1.23 - 2016-03-25, H.Merijn Brand
+  * Skip unsupported encodings
+  * Reorganize Unicode section and mention layers (Dan Book)
+  * Amend some UTF-8 tests for PERL_UNICODE settings
+  * Fix crash on error in parsing with bound columns (RT#113279)
+  * Add predefined filters (not_blank, not_empty, filled)
+  
+  1.22 - 2016-02-23, H.Merijn Brand
+  * Small doc updates regarding blank_is_undef
+  * Precedence error in doc
+  * Add new method header
+  
+  1.21 - 2016-01-06, H.Merijn Brand
+  * Add confusion option to rewrite example
+  * Alias %_ to row in hashref mode for csv function attributes
+on_in and before_out
+  * Examples now use defined-or and thus require perl-5.10 or up
+  * Fix 
+ ending with allow_loose_escapes (reported by Bas Bloemsaat)
+  * It's 2016
+  * Clarify $csv->csv (...) documentation (RT#110941)
+  
+  1.20 - 2015-10-09, H.Merijn Brand
+  * Use "say" in synopsis
+  * Remove needless special characters in doc section
+  * Change doc =item attributes for new to =head for index
+  * Add known_attributes function/method
+  * Add contributor notes
+  * Allow undef as value for aliased attributes
+  
+  1.19 - 2015-06-17, H.Merijn Brand
+  * Guard tests against $PERL_UNICODE
+  * Numeric options were sometimes interpreted as boolean
+  * Safer meta_info use
+  
+  1.18 - 2015-05-22, H.Merijn Brand
+  * Add quote_empty attribute
+  * Add database NULL documentation
+  * Inherit csv attributes in

commit perl-Text-CSV_XS for openSUSE:Factory

2014-03-18 Thread h_root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2014-03-18 14:17:01

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"

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2014-02-24 14:13:03.0 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2014-03-18 14:17:02.0 +0100
@@ -1,0 +2,11 @@
+Mon Mar 17 08:29:52 UTC 2014 - co...@suse.com
+
+- updated to 1.05
+* Allow case insensitive attributes and attribute aliases
+  (quote_always = always_quote)
+* Enhanced the csv () function (diagnostics)
+* Start callbacks support
+* Minor doc fixes
+* Make subclassing safer
+
+---

Old:

  Text-CSV_XS-1.04.tgz

New:

  Text-CSV_XS-1.05.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.Pudn1P/_old  2014-03-18 14:17:02.0 +0100
+++ /var/tmp/diff_new_pack.Pudn1P/_new  2014-03-18 14:17:02.0 +0100
@@ -17,7 +17,7 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:1.04
+Version:1.05
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:comma-separated values manipulation routines

++ Text-CSV_XS-1.04.tgz -> Text-CSV_XS-1.05.tgz ++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-1.04/CSV_XS.pm 
new/Text-CSV_XS-1.05/CSV_XS.pm
--- old/Text-CSV_XS-1.04/CSV_XS.pm  2014-02-06 07:37:44.0 +0100
+++ new/Text-CSV_XS-1.05/CSV_XS.pm  2014-03-06 12:46:25.0 +0100
@@ -28,7 +28,7 @@
 use Carp;
 
 use vars   qw( $VERSION @ISA @EXPORT_OK );
-$VERSION   = "1.04";
+$VERSION   = "1.05";
 @ISA   = qw( DynaLoader Exporter );
 @EXPORT_OK = qw( csv );
 bootstrap Text::CSV_XS $VERSION;
@@ -74,6 +74,7 @@
 auto_diag  => 0,
 diag_verbose   => 0,
 types  => undef,
+callbacks  => undef,
 
 _EOF   => 0,
 _RECNO => 0,
@@ -86,6 +87,10 @@
 _BOUND_COLUMNS => undef,
 _AHEAD => undef,
 );
+my %attr_alias = (
+quote_always   => "always_quote",
+verbose_diag   => "diag_verbose",
+);
 my $last_new_err = Text::CSV_XS->SetDiag (0);
 
 sub _check_sanity
@@ -104,35 +109,44 @@
 
 sub new
 {
-$last_new_err = SetDiag (undef, 1000,
+$last_new_err = Text::CSV_XS->SetDiag (1000,
"usage: my \$csv = Text::CSV_XS->new ([{ option => value, ... }]);");
 
 my $proto = shift;
 my $class = ref ($proto) || $proto or  return;
 @_ > 0 &&   ref $_[0] ne "HASH"and return;
 my $attr  = shift || {};
+my %attr  = map {
+   my $k = m/^[a-zA-Z]\w+$/ ? lc $_ : $_;
+   exists $attr_alias{$k} and $k = $attr_alias{$k};
+   $k => $attr->{$_};
+   } keys %$attr;
 
-for (keys %{$attr}) {
+for (keys %attr) {
if (m/^[a-z]/ && exists $def_attr{$_}) {
-   defined $attr->{$_} && $] >= 5.008002 && m/_char$/ and
-   utf8::decode ($attr->{$_});
+   defined $attr{$_} && $] >= 5.008002 && m/_char$/ and
+   utf8::decode ($attr{$_});
next;
}
 #  croak?
-   $last_new_err = SetDiag (undef, 1000, "INI - Unknown attribute '$_'");
-   $attr->{auto_diag} and error_diag ();
+   $last_new_err = Text::CSV_XS->SetDiag (1000, "INI - Unknown attribute 
'$_'");
+   $attr{auto_diag} and error_diag ();
return;
}
 
-my $self = { %def_attr, %{$attr} };
+my $self = { %def_attr, %attr };
 if (my $ec = _check_sanity ($self)) {
-   $last_new_err = SetDiag (undef, $ec);
-   $attr->{auto_diag} and error_diag ();
+   $last_new_err = Text::CSV_XS->SetDiag ($ec);
+   $attr{auto_diag} and error_diag ();
return;
}
+if ($self->{callbacks} && ref $self->{callbacks} ne "HASH") {
+   carp "The 'callbacks' attribute is set but is not a hash: ignored\n";
+   $self->{callbacks} = undef;
+   }
 
-$last_new_err = SetDiag (undef, 0);
-defined $\ && !exists $attr->{eol} and $self->{eol} = $\;
+$last_new_err = Text::CSV_XS->SetDiag (0);
+defined $\ && !exists $attr{eol} and $self->{eol} = $\;
 bless $self, $class;
 defined $self->{types} and $self->types ($self->{types});
 $self;
@@ -160,6 +174,7 @@
 quote_null => 31,
 quote_binary   => 32,
 decode_utf8=> 35,
+_

commit perl-Text-CSV_XS for openSUSE:Factory

2014-02-24 Thread h_root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2014-02-24 14:13:01

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"

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2013-11-26 19:33:14.0 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2014-02-24 14:13:03.0 +0100
@@ -1,0 +2,12 @@
+Mon Feb 24 06:08:10 UTC 2014 - co...@suse.com
+
+- updated to 1.04
+* get_columnd () with no argument now returns the empty list
+  instead of undef when no columns defined
+* fragments (rcf7111) now also support AoH (was AoA only)
+* Error code conflict for fragments resolved to 2013
+* New function "csv" (not a method)
+* Update copyright to 2014
+* Implement RCF7111
+
+---

Old:

  Text-CSV_XS-1.02.tgz

New:

  Text-CSV_XS-1.04.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.A9Z9A8/_old  2014-02-24 14:13:03.0 +0100
+++ /var/tmp/diff_new_pack.A9Z9A8/_new  2014-02-24 14:13:03.0 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Text-CSV_XS
 #
-# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2014 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
@@ -17,7 +17,7 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:1.02
+Version:1.04
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:comma-separated values manipulation routines
@@ -28,8 +28,7 @@
 BuildRoot:  %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
 BuildRequires:  perl-macros
-#BuildRequires: perl(Text::CSV_XS)
-Recommends: perl(Encode) >= 2.55
+Recommends: perl(Encode) >= 2.57
 %{perl_requires}
 
 %description

++ Text-CSV_XS-1.02.tgz -> Text-CSV_XS-1.04.tgz ++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-1.02/CSV_XS.pm 
new/Text-CSV_XS-1.04/CSV_XS.pm
--- old/Text-CSV_XS-1.02/CSV_XS.pm  2013-09-25 17:48:31.0 +0200
+++ new/Text-CSV_XS-1.04/CSV_XS.pm  2014-02-06 07:37:44.0 +0100
@@ -1,6 +1,6 @@
 package Text::CSV_XS;
 
-# Copyright (c) 2007-2013 H.Merijn Brand.  All rights reserved.
+# Copyright (c) 2007-2014 H.Merijn Brand.  All rights reserved.
 # Copyright (c) 1998-2001 Jochen Wiedmann. All rights reserved.
 # Copyright (c) 1997 Alan Citterman.   All rights reserved.
 #
@@ -23,12 +23,14 @@
 use strict;
 use warnings;
 
+require Exporter;
 use DynaLoader ();
 use Carp;
 
-use vars   qw( $VERSION @ISA );
-$VERSION = "1.02";
-@ISA = qw( DynaLoader );
+use vars   qw( $VERSION @ISA @EXPORT_OK );
+$VERSION   = "1.04";
+@ISA   = qw( DynaLoader Exporter );
+@EXPORT_OK = qw( csv );
 bootstrap Text::CSV_XS $VERSION;
 
 sub PV { 0 }
@@ -377,6 +379,25 @@
 return $self->{_EOF};
 } # status
 
+sub types
+{
+my $self = shift;
+if (@_) {
+   if (my $types = shift) {
+   $self->{_types} = join "", map { chr $_ } @{$types};
+   $self->{types}  = $types;
+   }
+   else {
+   delete $self->{types};
+   delete $self->{_types};
+   undef;
+   }
+   }
+else {
+   $self->{types};
+   }
+} # types
+
 # erro_diag
 #
 #   If (and only if) an error occurred, this function returns a code that
@@ -556,7 +577,7 @@
 {
 my ($self, @keys) = @_;
 @keys or
-   return defined $self->{_COLUMN_NAMES} ? @{$self->{_COLUMN_NAMES}} : 
undef;
+   return defined $self->{_COLUMN_NAMES} ? @{$self->{_COLUMN_NAMES}} : ();
 
 @keys == 1 && ! defined $keys[0] and
return $self->{_COLUMN_NAMES} = undef;
@@ -625,24 +646,178 @@
 $self->print ($io, [ map { $hr->{$_} } $self->column_names ]);
 } # print_hr
 
-sub types
+sub fragment
 {
-my $self = shift;
-if (@_) {
-   if (my $types = shift) {
-   $self->{_types} = join "", map { chr $_ } @{$types};
-   $self->{types}  = $types;
+my ($self, $io, $spec) = @_;
+
+my $qd = qr{\s* [0-9]+ \s* }x;
+my $qr = qr{$qd (?: - (?: $qd | \s* \* \s* ))?}x;
+my $qc = qr{$qr (?: ; $qr)*}x;
+defined $spec && $spec =~ m{^ \s*
+   \x23 ? \s*  # optional leading #
+   ( row | col | cell ) \s* =
+   ( $qc   # for row and col
+   | $qd , $qd (?: - $qd , $qd)?   #

commit perl-Text-CSV_XS for openSUSE:Factory

2013-11-26 Thread h_root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2013-11-26 19:33:12

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"

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2013-07-30 18:44:02.0 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2013-11-26 19:33:14.0 +0100
@@ -1,0 +2,9 @@
+Mon Nov 25 07:43:45 UTC 2013 - co...@suse.com
+
+- updated to 1.02
+   * Add example for reading only a single column
+   * Don't store NULL in _ERROR_INPUT (RT#86217/Clone)
+   * Prevent double-decode in csv-check
+   * Add decode_utf8 attribute (default is true)
+
+---

Old:

  Text-CSV_XS-1.01.tgz

New:

  Text-CSV_XS-1.02.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.mH69jB/_old  2013-11-26 19:33:14.0 +0100
+++ /var/tmp/diff_new_pack.mH69jB/_new  2013-11-26 19:33:14.0 +0100
@@ -17,7 +17,7 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:1.01
+Version:1.02
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:comma-separated values manipulation routines
@@ -29,7 +29,7 @@
 BuildRequires:  perl
 BuildRequires:  perl-macros
 #BuildRequires: perl(Text::CSV_XS)
-Recommends: perl(Encode) >= 2.51
+Recommends: perl(Encode) >= 2.55
 %{perl_requires}
 
 %description

++ Text-CSV_XS-1.01.tgz -> Text-CSV_XS-1.02.tgz ++
 2687 lines of diff (skipped)

-- 
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org

commit perl-Text-CSV_XS for openSUSE:Factory

2013-07-30 Thread h_root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2013-07-30 18:44:02

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"

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2013-06-05 13:07:33.0 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2013-07-30 18:44:02.0 +0200
@@ -1,0 +2,11 @@
+Sat Jul 27 11:58:34 UTC 2013 - co...@suse.com
+
+- updated to 1.01
+* Cache not re-read on getline_all (RT#86155)
+* Fix automatic UTF-8 in getline/parse for SV's with \0
+* Documents return value of bind_columns without arguments
+* Fix automatic UTF-8 in getline/parse
+* Clarify eol documentation
+* Move error_input to XS
+
+---

Old:

  Text-CSV_XS-0.97.tgz

New:

  Text-CSV_XS-1.01.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.sEL7ew/_old  2013-07-30 18:44:05.0 +0200
+++ /var/tmp/diff_new_pack.sEL7ew/_new  2013-07-30 18:44:05.0 +0200
@@ -17,7 +17,7 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:0.97
+Version:1.01
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:comma-separated values manipulation routines
@@ -29,7 +29,7 @@
 BuildRequires:  perl
 BuildRequires:  perl-macros
 #BuildRequires: perl(Text::CSV_XS)
-Recommends: perl(Encode) >= 2.49
+Recommends: perl(Encode) >= 2.51
 %{perl_requires}
 
 %description

++ Text-CSV_XS-0.97.tgz -> Text-CSV_XS-1.01.tgz ++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-0.97/CSV_XS.pm 
new/Text-CSV_XS-1.01/CSV_XS.pm
--- old/Text-CSV_XS-0.97/CSV_XS.pm  2013-03-30 15:58:47.0 +0100
+++ new/Text-CSV_XS-1.01/CSV_XS.pm  2013-06-13 20:08:19.0 +0200
@@ -27,7 +27,7 @@
 use Carp;
 
 use vars   qw( $VERSION @ISA );
-$VERSION = "0.97";
+$VERSION = "1.01";
 @ISA = qw( DynaLoader );
 bootstrap Text::CSV_XS $VERSION;
 
@@ -368,17 +368,6 @@
 return $self->{_EOF};
 } # status
 
-# error_input
-#
-#   object method returning the first invalid argument to the most recent
-#   combine () or parse ().  there are no side-effects.
-
-sub error_input
-{
-my $self = shift;
-return $self->{_ERROR_INPUT};
-} # error_input
-
 # erro_diag
 #
 #   If (and only if) an error occurred, this function returns a code that
@@ -659,14 +648,12 @@
  use Text::CSV_XS;
 
  my @rows;
- my $csv = Text::CSV_XS->new ({ binary => 1 }) or
- die "Cannot use CSV: ".Text::CSV_XS->error_diag ();
+ my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
  open my $fh, "<:encoding(utf8)", "test.csv" or die "test.csv: $!";
  while (my $row = $csv->getline ($fh)) {
  $row->[2] =~ m/pattern/ or next; # 3rd field should match
  push @rows, $row;
  }
- $csv->eof or $csv->error_diag ();
  close $fh;
 
  $csv->eol ("\r\n");
@@ -685,12 +672,12 @@
 
 =head2 Embedded newlines
 
-B: The default behavior is to accept only ASCII characters.
-This means that fields can not contain newlines. If your data contains
-newlines embedded in fields, or characters above 0x7e (tilde), or binary
-data, you B> set C<< binary => 1 >> in the call to L. To
-cover the widest range of parsing options, you will always want to set
-binary.
+B: The default behavior is to accept only ASCII characters
+in the range from C<0x20> (space) to C<0x7E> (tilde).  This means that
+fields can not contain newlines. If your data contains newlines embedded
+in fields, or characters above 0x7e (tilde), or binary data, you
+B> set C<< binary => 1 >> in the call to L. To cover the
+widest range of parsing options, you will always want to set binary.
 
 But you still have the problem that you have to pass a correct line to the
 L method, which is more complicated from the usual point of usage:
@@ -702,21 +689,22 @@
 
 will break, as the while might read broken lines, as that does not care
 about the quoting. If you need to support embedded newlines, the way to go
-is either
-
- my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
- while (my $row = $csv->getline (*ARGV)) {
- my @fields = @$row;
-
-or, more safely in perl 5.6 and up
+is to B pass C in the parser (it accepts C<\n>, C<\r>, B
+C<\r\n> by default) and then
 
- my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
+ my $csv = Text::CSV_XS->new ({ binary => 1 });
  open my $io, "<", $file or die "$file: $!";
  while (my $row = $csv->getline ($io)) {
  my @fields = @$row;
 
+The ol

commit perl-Text-CSV_XS for openSUSE:Factory

2013-06-05 Thread h_root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2013-06-05 13:07:32

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"

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2012-03-12 20:15:57.0 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2013-06-05 13:07:33.0 +0200
@@ -1,0 +2,38 @@
+Mon Jun  3 10:52:23 UTC 2013 - co...@suse.com
+
+- updated to 0.97
+ * Regain the speed from 0.91 (buffer back to 1k)
+ * Minor cleanup in XS code
+ * Add diag_verbose attribute
+ * No need to require Test::Harness if unused (RT#82693)
+ * parse ("") should return one empty field, not undef
+ * Now that we know the record number, show it in auto_diag
+ * Introduce allow_unquoted_escape as workaround for RT#81295
+ * Update copyright to 2013
+ * Introduce print_hr () for RT#76143
+ * Dropped plans to support EBCDIC
+ * Guard against beta releases of Encode (Xavier Guimard - RT#81499)
+ * Fix sv_cache init global-buffer-overflow (Reini Urban - RT#81469)
+ * Tested with perl compiled with clang (also to verify RT#81469)
+ * Fix memory leak reported in RT#81539 (Fix by Tony Cook)
+ * Skip Encode related tests on too old Encode
+ * Force old(er) tar format (ustar) - assumes GNU tar on release box
+ * Allow bind_columns () for print ()
+ * Increase buffer size for print to 64k
+ * Fix RT#80680 - Buffer break halfway UTF8 + tests
+ * Prevent test-failures for long doubles on weird architectures
+ * More utf-8 tests for te change of 0.90
+ * Update test case now 5.005 is not supported anymore
+ * Rip out the tell/seek introduced in 0.90
+ * Drop 5.005 support (5.6.1 is now minimum)
+ * Introduce record_number
+ * Try harder to get the complete input parsed for the current record
+   when hitting errors on parsing seekable IO (only works in 5.14.0 and up)
+ * Tested with perl 5.6.1 .. 5.17.0 (99 versions of perl) on Linux, HP-UX,
+   AIX, and Windows
+ * SvSETMAGIC was missing for tied variables causing weird actions at a
+   distance, e.g. in printf (Thanks TonyC for finding this)
+ * UTF8 flag was not always reset when using bound variables (TonyC)
+ * Fix for $/ in 0.86 broke parsing fields that contain excessive $/'s
+
+---

Old:

  Text-CSV_XS-0.87.tgz

New:

  Text-CSV_XS-0.97.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.lAz4kL/_old  2013-06-05 13:07:33.0 +0200
+++ /var/tmp/diff_new_pack.lAz4kL/_new  2013-06-05 13:07:33.0 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Text-CSV_XS
 #
-# Copyright (c) 2012 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
@@ -17,7 +17,7 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:0.87
+Version:0.97
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:comma-separated values manipulation routines
@@ -29,16 +29,16 @@
 BuildRequires:  perl
 BuildRequires:  perl-macros
 #BuildRequires: perl(Text::CSV_XS)
+Recommends: perl(Encode) >= 2.49
 %{perl_requires}
 
 %description
 Text::CSV_XS provides facilities for the composition and decomposition of
-comma-separated values. An instance of the Text::CSV_XS class can combine
+comma-separated values. An instance of the Text::CSV_XS class will combine
 fields into a CSV string and parse a CSV string into fields.
 
-The module accepts either strings or files as input and can utilize any
-user-specified characters as delimiters, separators, and escapes so it is
-perhaps better called ASV (anything separated values) rather than just CSV.
+The module accepts either strings or files as input and support the use of
+user-specified characters for delimiters, separators, and escapes.
 
 %prep
 %setup -q -n %{cpan_name}-%{version}

++ Text-CSV_XS-0.87.tgz -> Text-CSV_XS-0.97.tgz ++
 4210 lines of diff (skipped)

-- 
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org

commit perl-Text-CSV_XS for openSUSE:Factory

2012-03-12 Thread h_root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2012-03-12 20:15:54

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", Maintainer is "u...@suse.com"

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2012-02-17 12:08:19.0 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2012-03-12 20:15:57.0 +0100
@@ -1,0 +2,8 @@
+Sun Mar 11 19:20:16 UTC 2012 - co...@suse.com
+
+- updated to 0.87
+* Extra check on utf8 output (RT#74330)

   
+* examples/csvdiff now recognizes numerically sorted CSV files 

   
+* Document example comparing getline_hr vs bind_columns + getline  

   
+
+---

Old:

  Text-CSV_XS-0.86.tgz

New:

  Text-CSV_XS-0.87.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.joSisJ/_old  2012-03-12 20:15:58.0 +0100
+++ /var/tmp/diff_new_pack.joSisJ/_new  2012-03-12 20:15:58.0 +0100
@@ -17,7 +17,7 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:0.86
+Version:0.87
 Release:0
 %define cpan_name Text-CSV_XS
 Summary:comma-separated values manipulation routines

++ Text-CSV_XS-0.86.tgz -> Text-CSV_XS-0.87.tgz ++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-0.86/CSV_XS.pm 
new/Text-CSV_XS-0.87/CSV_XS.pm
--- old/Text-CSV_XS-0.86/CSV_XS.pm  2012-01-21 12:57:01.0 +0100
+++ new/Text-CSV_XS-0.87/CSV_XS.pm  2012-03-08 12:22:44.0 +0100
@@ -27,7 +27,7 @@
 use Carp;
 
 use vars   qw( $VERSION @ISA );
-$VERSION = "0.86";
+$VERSION = "0.87";
 @ISA = qw( DynaLoader );
 bootstrap Text::CSV_XS $VERSION;
 
@@ -1224,6 +1224,32 @@
 
 L will croak if called before L.
 
+Note that L creates a hashref for every row and might be much
+slower than the combined use of L and L but still
+offering the same ease of use hashref inside the loop:
+
+ my @cols = @{$csv->getline ($io)};
+ $csv->column_names (@cols);
+ while (my $row = $csv->getline_hr ($io)) {
+ print $row->{price};
+ }
+
+Could easily be rewritten to the much faster:
+
+ my @cols = @{$csv->getline ($io)};
+ my $row = {};
+ $csv->bind_columns (\@{$row}{@cols});
+ while ($csv->getline ($io)) {
+ print $row->{price};
+ }
+
+Your mileage may vary for the size of the data and the numbers of rows, but 
+with perl-5.14.2 the difference is like for a 100_000 line file with 14 rows:
+
+Rate hashrefs getlines
+ hashrefs 1.00/s   -- -76%
+ getlines 4.15/s 313%   --
+
 =head2 getline_hr_all
 X
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-0.86/CSV_XS.xs 
new/Text-CSV_XS-0.87/CSV_XS.xs
--- old/Text-CSV_XS-0.86/CSV_XS.xs  2012-01-22 15:15:05.0 +0100
+++ new/Text-CSV_XS-0.87/CSV_XS.xs  2012-01-25 08:45:00.0 +0100
@@ -19,6 +19,7 @@
 #include "ppport.h"
 #if (PERL_BCDVERSION <= 0x5005005)
 #  define sv_utf8_upgrade(sv)  /* no-op */
+#  define is_utf8_string(s,l)  0
 #  define SvUTF8_on(sv)/* no-op */
 #  define SvUTF8(sv)   0
 #  endif
@@ -601,7 +602,7 @@
PUSHs ((dst));
PUSHs (tmp);
PUTBACK;
-   if (csv->utf8)
+   if (csv->utf8 && is_utf8_string (SvPV_nolen (tmp), 0))
SvUTF8_on (tmp);
result = call_sv (m_print, G_SCALAR | G_METHOD);
SPAGAIN;
@@ -617,7 +618,7 @@
sv_catpvn (SvRV (dst), csv->buffer, csv->used);
result = TRUE;
}
-if (csv->utf8 && SvROK (dst))
+if (csv->utf8 && SvROK (dst) && is_utf8_string (SvPV_nolen (SvRV (dst)), 
0))
SvUTF8_on (SvRV (dst));
 csv->used = 0;
 return result;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-0.86/ChangeLog 
new/Text-CSV_XS-0.87/ChangeLog
--- old/Text-CSV_XS-0.86/ChangeLog  2012-01-22 15:49:10.0 +0100
+++ new/Text-CSV_XS-0.87/ChangeLog  2012-03-08 12:21:11.0 +0100
@@ -1,3 +1,8 @@
+0.87   - 2012-03-08, H.Merijn Brand
+* Extra check

commit perl-Text-CSV_XS for openSUSE:Factory

2012-02-17 Thread h_root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2012-02-17 12:08:17

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", Maintainer is "u...@suse.com"

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2011-12-07 14:39:13.0 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2012-02-17 12:08:19.0 +0100
@@ -1,0 +2,10 @@
+Fri Feb 17 08:46:58 UTC 2012 - co...@suse.com
+
+- updated to 0.86
+* Introduce quote_binary attribute
+* Update copyright to 2012
+* Versions
+* Fixed a utf8::decode on undef (found by perl-5.15.7)
+* Fixed localized $/ interference with other handles (RT#74216)
+
+---

Old:

  Text-CSV_XS-0.85.tgz

New:

  Text-CSV_XS-0.86.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.aP4xXw/_old  2012-02-17 12:08:20.0 +0100
+++ /var/tmp/diff_new_pack.aP4xXw/_new  2012-02-17 12:08:20.0 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Text-CSV_XS
 #
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2012 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
@@ -15,18 +15,20 @@
 # Please submit bugfixes or comments via http://bugs.opensuse.org/
 #
 
+
 Name:   perl-Text-CSV_XS
-Version:0.85
+Version:0.86
 Release:0
-License:Artistic-1.0 or GPL-1.0+
 %define cpan_name Text-CSV_XS
 Summary:comma-separated values manipulation routines
-Url:http://search.cpan.org/dist/Text-CSV_XS/
+License:Artistic-1.0 or GPL-1.0+
 Group:  Development/Libraries/Perl
+Url:http://search.cpan.org/dist/Text-CSV_XS/
 Source: 
http://www.cpan.org/authors/id/H/HM/HMBRAND/%{cpan_name}-%{version}.tgz
 BuildRoot:  %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
 BuildRequires:  perl-macros
+#BuildRequires: perl(Text::CSV_XS)
 %{perl_requires}
 
 %description
@@ -54,9 +56,6 @@
 %perl_process_packlist
 %perl_gen_filelist
 
-%clean
-%{__rm} -rf %{buildroot}
-
 %files -f %{name}.files
 %defattr(-,root,root,755)
 %doc ChangeLog examples README

++ Text-CSV_XS-0.85.tgz -> Text-CSV_XS-0.86.tgz ++
 2695 lines of diff (skipped)

-- 
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org

commit perl-Text-CSV_XS for openSUSE:Factory

2011-12-07 Thread h_root 
Hello community,

here is the log from the commit of package perl-Text-CSV_XS for 
openSUSE:Factory checked in at 2011-12-07 14:39:12

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", Maintainer is "u...@suse.com"

Changes:

--- /work/SRC/openSUSE:Factory/perl-Text-CSV_XS/perl-Text-CSV_XS.changes
2011-09-23 12:39:15.0 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Text-CSV_XS.new/perl-Text-CSV_XS.changes   
2011-12-07 14:39:13.0 +0100
@@ -1,0 +2,9 @@
+Tue Nov 29 20:49:32 UTC 2011 - co...@suse.com
+
+- update to 0.85
+   * NAME / DISTNAME in Makefile.PL
+   * More cross-checks for META data
+   * Fix spurious auto_diag warning (RT#69673)
+   * Tested with 50 versions of perl, including 1.15.1
+
+---

Old:

  Text-CSV_XS-0.82.tgz

New:

  Text-CSV_XS-0.85.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.PQaPYm/_old  2011-12-07 14:39:14.0 +0100
+++ /var/tmp/diff_new_pack.PQaPYm/_new  2011-12-07 14:39:14.0 +0100
@@ -15,12 +15,10 @@
 # Please submit bugfixes or comments via http://bugs.opensuse.org/
 #
 
-
-
 Name:   perl-Text-CSV_XS
-Version:0.82
-Release:1
-License:GPL+ or Artistic
+Version:0.85
+Release:0
+License:Artistic-1.0 or GPL-1.0+
 %define cpan_name Text-CSV_XS
 Summary:comma-separated values manipulation routines
 Url:http://search.cpan.org/dist/Text-CSV_XS/

++ Text-CSV_XS-0.82.tgz -> Text-CSV_XS-0.85.tgz ++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-0.82/CSV_XS.pm 
new/Text-CSV_XS-0.85/CSV_XS.pm
--- old/Text-CSV_XS-0.82/CSV_XS.pm  2011-05-01 17:21:25.0 +0200
+++ new/Text-CSV_XS-0.85/CSV_XS.pm  2011-09-07 13:34:16.0 +0200
@@ -27,7 +27,7 @@
 use Carp;
 
 use vars   qw( $VERSION @ISA );
-$VERSION = "0.82";
+$VERSION = "0.85";
 @ISA = qw( DynaLoader );
 bootstrap Text::CSV_XS $VERSION;
 
@@ -353,8 +353,9 @@
 
 if ($self && ref $self && # Not a class method or direct call
 $self->isa (__PACKAGE__) && exists $self->{_ERROR_DIAG}) {
-   @diag = (0 + $self->{_ERROR_DIAG}, $self->{_ERROR_DIAG});
-   exists $self->{_ERROR_POS} and $diag[2] = 1 + $self->{_ERROR_POS};
+   $diag[0] = 0 + $self->{_ERROR_DIAG};
+   $diag[1] = $self->{_ERROR_DIAG};
+   $diag[2] = 1 + $self->{_ERROR_POS} if exists $self->{_ERROR_POS};
}
 
 my $context = wantarray;
@@ -1922,7 +1923,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
- Copyright (C) 2007-2011 H.Merijn Brand for PROCURA B.V.
+ Copyright (C) 2007-2011 H.Merijn Brand for PROCURA B.V. All rights reserved.
  Copyright (C) 1998-2001 Jochen Wiedmann. All rights reserved.
  Portions Copyright (C) 1997 Alan Citterman. All rights reserved.
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-0.82/ChangeLog 
new/Text-CSV_XS-0.85/ChangeLog
--- old/Text-CSV_XS-0.82/ChangeLog  2011-05-01 12:44:36.0 +0200
+++ new/Text-CSV_XS-0.85/ChangeLog  2011-09-07 18:04:25.0 +0200
@@ -1,3 +1,13 @@
+2011-09-07 0.85 - H.Merijn Brand   
+* NAME / DISTNAME in Makefile.PL
+
+2011-09-07 0.84 - H.Merijn Brand   
+* More cross-checks for META data
+
+2011-08-07 0.83 - H.Merijn Brand   
+* Fix spurious auto_diag warning (RT#69673)
+* Tested with 50 versions of perl, including 1.15.1
+
 2011-05-01 0.82 - H.Merijn Brand   
 * Doc fix (RT#66905, Peter Newman)
 * Documentation overhaul (pod links)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-0.82/MANIFEST 
new/Text-CSV_XS-0.85/MANIFEST
--- old/Text-CSV_XS-0.82/MANIFEST   2010-12-22 20:52:07.0 +0100
+++ new/Text-CSV_XS-0.85/MANIFEST   2011-09-07 18:16:32.0 +0200
@@ -39,3 +39,4 @@
 examples/speed.pl  Small benchmark script
 files/macosx.csv   A CSV files exported on MacOSX
 files/utf8.csv A UTF-8 encode test file
+META.jsonModule JSON meta-data (added by 
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Text-CSV_XS-0.82/META.json 
new/Text-CSV_XS-0.85/META.json
--- old/Text-CSV_XS-0.82/META.json  1970-01-01 01:00:00.0 +0100
+++ new/Text-CSV_XS-0.85/META.json  2011-09-07 18:16:32.0 +0200
@@ -0,0 +1,44 @@
+{
+   "resources" : {
+  "repository" : "http://repo.or.cz/w/Text-CSV_XS.git";,
+  "license" : "http://dev.perl.org/licenses/";
+  },
+

commit perl-Text-CSV_XS for openSUSE:Factory

2011-05-31 Thread h_root 

Hello community,

here is the log from the commit of package perl-Text-CSV_XS for openSUSE:Factory
checked in at Tue May 31 14:26:31 CEST 2011.




--- perl-Text-CSV_XS/perl-Text-CSV_XS.changes   2011-03-31 10:52:47.0 
+0200
+++ /mounts/work_src_done/STABLE/perl-Text-CSV_XS/perl-Text-CSV_XS.changes  
2011-05-16 10:55:15.0 +0200
@@ -1,0 +2,7 @@
+Mon May 16 08:47:46 UTC 2011 - co...@opensuse.org
+
+- updated to 0.82
+* Doc fix (RT#66905, Peter Newman)
+* Documentation overhaul (pod links)
+
+---

calling whatdependson for head-i586


Old:

  Text-CSV_XS-0.81.tgz

New:

  Text-CSV_XS-0.82.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.spkOS9/_old  2011-05-31 14:25:53.0 +0200
+++ /var/tmp/diff_new_pack.spkOS9/_new  2011-05-31 14:25:53.0 +0200
@@ -18,23 +18,17 @@
 
 
 Name:   perl-Text-CSV_XS
-Version:0.81
+Version:0.82
 Release:1
 License:GPL+ or Artistic
 %define cpan_name Text-CSV_XS
 Summary:comma-separated values manipulation routines
 Url:http://search.cpan.org/dist/Text-CSV_XS/
 Group:  Development/Libraries/Perl
-#Source: 
http://www.cpan.org/authors/id/H/HM/HMBRAND/Text-CSV_XS-%{version}.tgz
-Source: %{cpan_name}-%{version}.tgz
+Source: 
http://www.cpan.org/authors/id/H/HM/HMBRAND/%{cpan_name}-%{version}.tgz
 BuildRoot:  %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
 BuildRequires:  perl-macros
-BuildRequires:  perl(Config)
-BuildRequires:  perl(DynaLoader)
-BuildRequires:  perl(IO::Handle)
-Requires:   perl(DynaLoader)
-Requires:   perl(IO::Handle)
 %{perl_requires}
 
 %description
@@ -46,71 +40,9 @@
 user-specified characters as delimiters, separators, and escapes so it is
 perhaps better called ASV (anything separated values) rather than just CSV.
 
-Embedded newlines
-*Important Note*: The default behavior is to only accept ASCII
-characters. This means that fields can not contain newlines. If your
-data contains newlines embedded in fields, or characters above 0x7e
-(tilde), or binary data, you *must* set 'binary => 1' in the call to
-'new'. To cover the widest range of parsing options, you will always
-want to set binary.
-
-But you still have the problem that you have to pass a correct line to
-the 'parse' method, which is more complicated from the usual point of
-usage:
-
- my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
- while (<>) {  #  WRONG!
- $csv->parse ($_);
- my @fields = $csv->fields ();
-
-will break, as the while might read broken lines, as that does not care
-about the quoting. If you need to support embedded newlines, the way to
-go is either
-
- my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
- while (my $row = $csv->getline (*ARGV)) {
- my @fields = @$row;
-
-or, more safely in perl 5.6 and up
-
- my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
- open my $io, "<", $file or die "$file: $!";
- while (my $row = $csv->getline ($io)) {
- my @fields = @$row;
-
-Unicode (UTF8)
-On parsing (both for 'getline' and 'parse'), if the source is marked
-being UTF8, then all fields that are marked binary will also be be
-marked UTF8.
-
-For complete control over encoding, please use Text::CSV::Encoded:
-
-use Text::CSV::Encoded;
-my $csv = Text::CSV::Encoded->new ({
-encoding_in  => "iso-8859-1", # the encoding comes into   Perl
-encoding_out => "cp1252", # the encoding comes out of Perl
-});
-
-$csv = Text::CSV::Encoded->new ({ encoding  => "utf8" });
-# combine () and print () accept *literally* utf8 encoded data
-# parse () and getline () return *literally* utf8 encoded data
-
-$csv = Text::CSV::Encoded->new ({ encoding  => undef }); # default
-# combine () and print () accept UTF8 marked data
-# parse () and getline () return UTF8 marked data
-
-On combining ('print' and 'combine'), if any of the combining fields
-was marked UTF8, the resulting string will be marked UTF8. Note however
-that all fields 'before' the first field that was marked UTF8 and
-contained 8-bit characters that were not upgraded to UTF8, these will
-be bytes in the resulting string too, causing errors. If you pass data
-of different encoding, or you don't know if there is different
-encoding, force it to be upgraded before you pass them on:
-
-$csv->print ($fh, [ map { utf8::upgrade (my $x = $_); $x } @data ]);
-
 %prep
 %setup -q -n %{cpan_name}-%{version}
+find . -type f -print0 | xargs -0 chmod 644
 
 %build
 %{__perl} Makefile.PL INST

commit perl-Text-CSV_XS for openSUSE:Factory

2011-03-31 Thread h_root 

Hello community,

here is the log from the commit of package perl-Text-CSV_XS for openSUSE:Factory
checked in at Thu Mar 31 15:23:15 CEST 2011.




--- perl-Text-CSV_XS/perl-Text-CSV_XS.changes   2010-12-01 14:56:16.0 
+0100
+++ /mounts/work_src_done/STABLE/perl-Text-CSV_XS/perl-Text-CSV_XS.changes  
2011-03-31 10:52:47.0 +0200
@@ -1,0 +2,22 @@
+Thu Mar 31 08:45:11 UTC 2011 - co...@novell.com
+
+- update to 0.81
+   * Add is_missing ()
+   * Doc overhaul
+   * Fix Build on OpenVMS (RT#65654, Martin P.J. Zinser)
+   * Fix SetDiag () leak (RT#66453, Sven Sch366ling)
+   * Implement getline_all () and getaline_hr_all ()
+   * Fixed another parsing for eol = \r (RT#61525)
+   * Use correct type for STRLEN (HP-UX/PA-RISC/32)
+   * More code coverage
+   * EOF unreliable when line-end missing at eof
+   * Internals now use warn () instead of (void)fprintf (stderr, ...)
+ Now the test in t/80_diag also passes on Windows
+   * Better parsing for eol = \r and set as such (RT#61525)
+   * Workaround for AIX cpp bug (RT#62388, Jan Dubois)
+   * Spelling fixes
+   * Real eol support for parsing streams (beyond \n, \r and \r\n)
+   * Clarify doc for always_quote to not quote undef fields
+   * Clarify UTF8 process for print () and combine ()
+
+---

calling whatdependson for head-i586


Old:

  Text-CSV_XS-0.73.tar.bz2

New:

  Text-CSV_XS-0.81.tgz



Other differences:
--
++ perl-Text-CSV_XS.spec ++
--- /var/tmp/diff_new_pack.yeZLlH/_old  2011-03-31 15:20:35.0 +0200
+++ /var/tmp/diff_new_pack.yeZLlH/_new  2011-03-31 15:20:35.0 +0200
@@ -1,7 +1,7 @@
 #
-# spec file for package perl-Text-CSV_XS (Version 0.73)
+# spec file for package perl-Text-CSV_XS
 #
-# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2011 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
@@ -15,24 +15,27 @@
 # Please submit bugfixes or comments via http://bugs.opensuse.org/
 #
 
-# norootforbuild
 
 
 Name:   perl-Text-CSV_XS
-%define cpan_name %( echo %{name} | %{__sed} -e 's,perl-,,' )
-Summary:Comma-separated values manipulation routines
-Version:0.73
-Release:2
-License:Artistic License ..
+Version:0.81
+Release:1
+License:GPL+ or Artistic
+%define cpan_name Text-CSV_XS
+Summary:comma-separated values manipulation routines
+Url:http://search.cpan.org/dist/Text-CSV_XS/
 Group:  Development/Libraries/Perl
-Url:http://search.cpan.org/dist/Text-CSV_XS
-Source: %{cpan_name}-%{version}.tar.bz2
+#Source: 
http://www.cpan.org/authors/id/H/HM/HMBRAND/Text-CSV_XS-%{version}.tgz
+Source: %{cpan_name}-%{version}.tgz
 BuildRoot:  %{_tmppath}/%{name}-%{version}-build
-%{perl_requires}
 BuildRequires:  perl
 BuildRequires:  perl-macros
-BuildRequires:  perl(Test::Pod) >= 1.00
-BuildRequires:  perl(Test::Pod::Coverage)
+BuildRequires:  perl(Config)
+BuildRequires:  perl(DynaLoader)
+BuildRequires:  perl(IO::Handle)
+Requires:   perl(DynaLoader)
+Requires:   perl(IO::Handle)
+%{perl_requires}
 
 %description
 Text::CSV_XS provides facilities for the composition and decomposition of
@@ -43,28 +46,75 @@
 user-specified characters as delimiters, separators, and escapes so it is
 perhaps better called ASV (anything separated values) rather than just CSV.
 
- Authors:
+Embedded newlines
+*Important Note*: The default behavior is to only accept ASCII
+characters. This means that fields can not contain newlines. If your
+data contains newlines embedded in fields, or characters above 0x7e
+(tilde), or binary data, you *must* set 'binary => 1' in the call to
+'new'. To cover the widest range of parsing options, you will always
+want to set binary.
+
+But you still have the problem that you have to pass a correct line to
+the 'parse' method, which is more complicated from the usual point of
+usage:
+
+ my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
+ while (<>) {  #  WRONG!
+ $csv->parse ($_);
+ my @fields = $csv->fields ();
+
+will break, as the while might read broken lines, as that does not care
+about the quoting. If you need to support embedded newlines, the way to
+go is either
+
+ my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
+ while (my $row = $csv->getline (*ARGV)) {
+ my @fields = @$row;
+
+or, more safely in perl 5.6 and up
+
+ my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
+ open my $io, "<", $file or die "$file: $!";
+ while (my $row = $csv->getline ($io)) {
+ my @fields = @$