r32619 - in /trunk/libtext-csv-xs-perl: CSV_XS.pm CSV_XS.xs ChangeLog META.yml README debian/changelog 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 09:11:35 UTC 2009
Author: ansgar-guest
Date: Sat Apr 4 09:11:31 2009
New Revision: 32619
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32619
Log:
New upstream release.
Modified:
trunk/libtext-csv-xs-perl/CSV_XS.pm
trunk/libtext-csv-xs-perl/CSV_XS.xs
trunk/libtext-csv-xs-perl/ChangeLog
trunk/libtext-csv-xs-perl/META.yml
trunk/libtext-csv-xs-perl/README
trunk/libtext-csv-xs-perl/debian/changelog
trunk/libtext-csv-xs-perl/t/22_scalario.t
trunk/libtext-csv-xs-perl/t/45_eol.t
Modified: trunk/libtext-csv-xs-perl/CSV_XS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/CSV_XS.pm?rev=32619&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/CSV_XS.pm (original)
+++ trunk/libtext-csv-xs-perl/CSV_XS.pm Sat Apr 4 09:11:31 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: trunk/libtext-csv-xs-perl/CSV_XS.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/CSV_XS.xs?rev=32619&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/CSV_XS.xs (original)
+++ trunk/libtext-csv-xs-perl/CSV_XS.xs Sat Apr 4 09:11:31 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: trunk/libtext-csv-xs-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/ChangeLog?rev=32619&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/ChangeLog (original)
+++ trunk/libtext-csv-xs-perl/ChangeLog Sat Apr 4 09:11:31 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: trunk/libtext-csv-xs-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/META.yml?rev=32619&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/META.yml (original)
+++ trunk/libtext-csv-xs-perl/META.yml Sat Apr 4 09:11:31 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: trunk/libtext-csv-xs-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/README?rev=32619&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/README (original)
+++ trunk/libtext-csv-xs-perl/README Sat Apr 4 09:11:31 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: trunk/libtext-csv-xs-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/debian/changelog?rev=32619&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/debian/changelog (original)
+++ trunk/libtext-csv-xs-perl/debian/changelog Sat Apr 4 09:11:31 2009
@@ -1,3 +1,9 @@
+libtext-csv-xs-perl (0.64-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Sat, 04 Apr 2009 11:11:18 +0200
+
libtext-csv-xs-perl (0.63-1) unstable; urgency=low
* New upstream release
Modified: trunk/libtext-csv-xs-perl/t/22_scalario.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/t/22_scalario.t?rev=32619&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/t/22_scalario.t (original)
+++ trunk/libtext-csv-xs-perl/t/22_scalario.t Sat Apr 4 09:11:31 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: trunk/libtext-csv-xs-perl/t/45_eol.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/t/45_eol.t?rev=32619&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/t/45_eol.t (original)
+++ trunk/libtext-csv-xs-perl/t/45_eol.t Sat Apr 4 09:11:31 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