r32617 - in /branches/upstream/libtext-csv-xs-perl/current: CSV_XS.pm CSV_XS.xs ChangeLog META.yml README t/22_scalario.t t/45_eol.t

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Sat Apr 4 08:44:43 UTC 2009


Author: ansgar-guest
Date: Sat Apr  4 08:44:37 2009
New Revision: 32617

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32617
Log:
[svn-upgrade] Integrating new upstream version, libtext-csv-xs-perl (0.64)

Modified:
    branches/upstream/libtext-csv-xs-perl/current/CSV_XS.pm
    branches/upstream/libtext-csv-xs-perl/current/CSV_XS.xs
    branches/upstream/libtext-csv-xs-perl/current/ChangeLog
    branches/upstream/libtext-csv-xs-perl/current/META.yml
    branches/upstream/libtext-csv-xs-perl/current/README
    branches/upstream/libtext-csv-xs-perl/current/t/22_scalario.t
    branches/upstream/libtext-csv-xs-perl/current/t/45_eol.t

Modified: branches/upstream/libtext-csv-xs-perl/current/CSV_XS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-csv-xs-perl/current/CSV_XS.pm?rev=32617&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/CSV_XS.pm (original)
+++ branches/upstream/libtext-csv-xs-perl/current/CSV_XS.pm Sat Apr  4 08:44:37 2009
@@ -30,7 +30,7 @@
 use Carp;
 
 use vars   qw( $VERSION @ISA );
-$VERSION = "0.63";
+$VERSION = "0.64";
 @ISA     = qw( DynaLoader );
 bootstrap Text::CSV_XS $VERSION;
 

Modified: branches/upstream/libtext-csv-xs-perl/current/CSV_XS.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-csv-xs-perl/current/CSV_XS.xs?rev=32617&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/CSV_XS.xs (original)
+++ branches/upstream/libtext-csv-xs-perl/current/CSV_XS.xs Sat Apr  4 08:44:37 2009
@@ -254,8 +254,9 @@
 	    csv->eol = (char *)&csv->cache[CACHE_ID_eol];
 	else {
 	    /* Was too long to cache. must re-fetch */
-	    csv->eol = NULL;
+	    csv->eol       = NULL;
 	    csv->eol_is_cr = 0;
+	    csv->eol_len   = 0;
 	    if ((svp = hv_fetchs (self, "eol",     FALSE)) && *svp && SvOK (*svp)) {
 		csv->eol = SvPV (*svp, len);
 		csv->eol_len = len;
@@ -302,8 +303,9 @@
 		csv->sep_char = *ptr;
 	    }
 
-	csv->eol = NULL;
+	csv->eol       = "";
 	csv->eol_is_cr = 0;
+	csv->eol_len   = 0;
 	if ((svp = hv_fetchs (self, "eol",         FALSE)) && *svp && SvOK (*svp)) {
 	    csv->eol = SvPV (*svp, len);
 	    csv->eol_len = len;

Modified: branches/upstream/libtext-csv-xs-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-csv-xs-perl/current/ChangeLog?rev=32617&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/ChangeLog (original)
+++ branches/upstream/libtext-csv-xs-perl/current/ChangeLog Sat Apr  4 08:44:37 2009
@@ -1,3 +1,11 @@
+2009-04-03 0.64 - H.Merijn Brand   <h.m.brand at xs4all.nl>
+
+	* Skip perlio tests for perl older than 5.8, as perlio
+	  was experimental in 5.6
+	* Up Devel::PPPort to 3.17
+	* Fix initialisation of eol => undef (could cause core dump)
+	* Added configure_require to META.yml
+
 2009-03-20 0.63 - H.Merijn Brand   <h.m.brand at xs4all.nl>
 
 	* Fixed allow_whitespace with sep_char = TAB (RT#44402)

Modified: branches/upstream/libtext-csv-xs-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-csv-xs-perl/current/META.yml?rev=32617&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/META.yml (original)
+++ branches/upstream/libtext-csv-xs-perl/current/META.yml Sat Apr  4 08:44:37 2009
@@ -1,29 +1,31 @@
 --- #YAML:1.1
-name:              Text-CSV_XS
-version:           0.63
-abstract:          Comma-Separated Values manipulation routines
-license:           perl
+name:                    Text-CSV_XS
+version:                 0.64
+abstract:                Comma-Separated Values manipulation routines
+license:                 perl
 author:              
     - H.Merijn Brand <h.m.brand at xs4all.nl>
-generated_by:      Author
-distribution_type: module
+generated_by:            Author
+distribution_type:       module
 provides:
     Text::CSV_XS:
-        file:      CSV_XS.pm
-        version:   0.63
+        file:            CSV_XS.pm
+        version:         0.64
 requires:     
-    perl:          5.005
-    DynaLoader:    0
-    IO::Handle:    0
+    perl:                5.005
+    DynaLoader:          0
+    IO::Handle:          0
+configure_requires:
+    ExtUtils::MakeMaker: 0
 build_requires:
-    perl:          5.005
-    Config:        0
-    Test::Harness: 0
-    Test::More:    0
-    Tie::Scalar:   0
+    perl:                5.005
+    Config:              0
+    Test::Harness:       0
+    Test::More:          0
+    Tie::Scalar:         0
 resources:
-    license:       http://dev.perl.org/licenses/
-    repository:    http://repo.or.cz/w/Text-CSV_XS.git
+    license:             http://dev.perl.org/licenses/
+    repository:          http://repo.or.cz/w/Text-CSV_XS.git
 meta-spec:
-    version:       1.4
-    url:           http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:             1.4
+    url:                 http://module-build.sourceforge.net/META-spec-v1.4.html

Modified: branches/upstream/libtext-csv-xs-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-csv-xs-perl/current/README?rev=32617&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/README (original)
+++ branches/upstream/libtext-csv-xs-perl/current/README Sat Apr  4 08:44:37 2009
@@ -16,9 +16,14 @@
 
     Recent changes can be (re)viewed in the public GIT repository at
     http://repo.or.cz/w/Text-CSV_XS.git
-    Feel free to clone your own copy
+    Feel free to clone your own copy:
 
-        $ git clone http://repo.or.cz/r/Text-CSV_XS.git Text-CSV-XS
+     $ git clone http://repo.or.cz/r/Text-CSV_XS.git Text-CSV-XS
+
+    or get it as a tgz:
+
+     $ wget --output-document=Text-CSV_XS-git.tgz \
+	       'http://repo.or.cz/w/Text-CSV_XS.git?a=snapshot;sf=tgz'
 
 Prerequisites:
     perl 5.005_03. 5.005 will not be able to build the manual pages.

Modified: branches/upstream/libtext-csv-xs-perl/current/t/22_scalario.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-csv-xs-perl/current/t/22_scalario.t?rev=32617&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/t/22_scalario.t (original)
+++ branches/upstream/libtext-csv-xs-perl/current/t/22_scalario.t Sat Apr  4 08:44:37 2009
@@ -10,8 +10,9 @@
 BEGIN {
     unless (exists  $Config{useperlio} &&
 	    defined $Config{useperlio} &&
+	    $] >= 5.008                && # perlio was experimental in 5.6.2, but not reliable
 	    $Config{useperlio} eq "define") {
-	plan skip_all => "No perlIO available";
+	plan skip_all => "No reliable perlIO available";
 	}
     else {
 	plan tests => 105;

Modified: branches/upstream/libtext-csv-xs-perl/current/t/45_eol.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-csv-xs-perl/current/t/45_eol.t?rev=32617&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/t/45_eol.t (original)
+++ branches/upstream/libtext-csv-xs-perl/current/t/45_eol.t Sat Apr  4 08:44:37 2009
@@ -3,7 +3,7 @@
 use strict;
 $^W = 1;
 
-use Test::More tests => 255;
+use Test::More tests => 262;
 
 BEGIN {
     require_ok "Text::CSV_XS";
@@ -127,4 +127,20 @@
     unlink "_eol.csv";
     }
 
+ok (1, "EOL undef");
+{   $/ = "\r";
+    ok (my $csv = Text::CSV_XS->new ({eol => undef }), "new csv with eol => undef");
+    open  FH, ">_eol.csv";
+    ok ($csv->print (*FH, [1, 2, 3]), "print");
+    ok ($csv->print (*FH, [4, 5, 6]), "print");
+    close FH;
+
+    open  FH, "<_eol.csv";
+    ok (my $row = $csv->getline (*FH),	"getline 1");
+    is (scalar @$row, 5,		"# fields");
+    is_deeply ($row, [ 1, 2, 34, 5, 6],	"fields 1");
+    close FH;
+    unlink "_eol.csv";
+    }
+
 1;




More information about the Pkg-perl-cvs-commits mailing list