r24461 - in /trunk/libtext-csv-perl: Changes MANIFEST META.yml README debian/changelog debian/libtext-csv-perl.lintian-overrides lib/Text/CSV.pm lib/Text/CSV_PP.pm t/71_pp.t
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Fri Aug 22 13:43:57 UTC 2008
Author: ansgar-guest
Date: Fri Aug 22 13:43:55 2008
New Revision: 24461
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24461
Log:
* New upstream release
* Remove lintian override for long line in debian/copyright:
lintian now recognizes the machine-readable format
Added:
trunk/libtext-csv-perl/t/71_pp.t
- copied unchanged from r24460, branches/upstream/libtext-csv-perl/current/t/71_pp.t
Removed:
trunk/libtext-csv-perl/debian/libtext-csv-perl.lintian-overrides
Modified:
trunk/libtext-csv-perl/Changes
trunk/libtext-csv-perl/MANIFEST
trunk/libtext-csv-perl/META.yml
trunk/libtext-csv-perl/README
trunk/libtext-csv-perl/debian/changelog
trunk/libtext-csv-perl/lib/Text/CSV.pm
trunk/libtext-csv-perl/lib/Text/CSV_PP.pm
Modified: trunk/libtext-csv-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-perl/Changes?rev=24461&op=diff
==============================================================================
--- trunk/libtext-csv-perl/Changes (original)
+++ trunk/libtext-csv-perl/Changes Fri Aug 22 13:43:55 2008
@@ -1,4 +1,8 @@
Revision history for Perl extension Text::CSV.
+
+1.08 Fri Aug 22 11:21:38 2008
+ - fixed a bug in parsing tab separated values with allow_whitespace
+ pointed by and thanks a patch to Mike O'Sullivan
1.07 Fri Aug 1 11:13:06 2008
- updated the compatibility for Text::CSV_XS version 0.52
Modified: trunk/libtext-csv-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-perl/MANIFEST?rev=24461&op=diff
==============================================================================
--- trunk/libtext-csv-perl/MANIFEST (original)
+++ trunk/libtext-csv-perl/MANIFEST Fri Aug 22 13:43:55 2008
@@ -22,6 +22,7 @@
t/60_samples.t Miscellaneous problems from the modules history.
t/65_allow.t Allow bad formats
t/70_rt.t Tests based on RT reports (for Text::CSV_XS)
+t/71_pp.t Tests for bug report fixes or patches (for Text::CSV_PP)
t/75_hashref.t getline_hr related tests
t/76_magic.t array_ref from magig (useless for Text::CSV_PP)
t/80_diag.t Error diagnostics
Modified: trunk/libtext-csv-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-perl/META.yml?rev=24461&op=diff
==============================================================================
--- trunk/libtext-csv-perl/META.yml (original)
+++ trunk/libtext-csv-perl/META.yml Fri Aug 22 13:43:55 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Text-CSV
-version: 1.07
+version: 1.08
abstract: comma-separated values manipulator (using XS or PurePerl)
license: ~
author:
Modified: trunk/libtext-csv-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-perl/README?rev=24461&op=diff
==============================================================================
--- trunk/libtext-csv-perl/README (original)
+++ trunk/libtext-csv-perl/README Fri Aug 22 13:43:55 2008
@@ -1,4 +1,4 @@
-Text::CSV version 1.07
+Text::CSV version 1.08
========================
comma-separated values manipulator
Modified: trunk/libtext-csv-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-perl/debian/changelog?rev=24461&op=diff
==============================================================================
--- trunk/libtext-csv-perl/debian/changelog (original)
+++ trunk/libtext-csv-perl/debian/changelog Fri Aug 22 13:43:55 2008
@@ -1,8 +1,14 @@
-libtext-csv-perl (1.07-2) UNRELEASED; urgency=low
+libtext-csv-perl (1.08-1) unstable; urgency=low
+ [ Tim Retout ]
* debian/copyright: Fix 'at your opinion' typo.
- -- Tim Retout <tim at retout.co.uk> Sun, 10 Aug 2008 16:03:10 -0300
+ [ Ansgar Burchardt ]
+ * New upstream release
+ * Remove lintian override for long line in debian/copyright:
+ lintian now recognizes the machine-readable format
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Fri, 22 Aug 2008 15:43:49 +0200
libtext-csv-perl (1.07-1) unstable; urgency=low
Modified: trunk/libtext-csv-perl/lib/Text/CSV.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-perl/lib/Text/CSV.pm?rev=24461&op=diff
==============================================================================
--- trunk/libtext-csv-perl/lib/Text/CSV.pm (original)
+++ trunk/libtext-csv-perl/lib/Text/CSV.pm Fri Aug 22 13:43:55 2008
@@ -5,7 +5,7 @@
use Carp ();
BEGIN {
- $Text::CSV::VERSION = '1.07';
+ $Text::CSV::VERSION = '1.08';
$Text::CSV::DEBUG = 0;
}
@@ -270,7 +270,7 @@
=head1 VERSION
- 1.07
+ 1.08
This module is compatible with Text::CSV_XS B<0.52> or later.
Modified: trunk/libtext-csv-perl/lib/Text/CSV_PP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-perl/lib/Text/CSV_PP.pm?rev=24461&op=diff
==============================================================================
--- trunk/libtext-csv-perl/lib/Text/CSV_PP.pm (original)
+++ trunk/libtext-csv-perl/lib/Text/CSV_PP.pm Fri Aug 22 13:43:55 2008
@@ -11,7 +11,7 @@
use vars qw($VERSION);
use Carp ();
-$VERSION = '1.15';
+$VERSION = '1.16';
sub PV { 0 }
sub IV { 1 }
@@ -498,11 +498,18 @@
sub _make_regexp_split_column_allow_sp {
my ($esc, $quot, $sep) = @_;
+ # if separator is space or tab, don't count that separator
+ # as whitespace --- patched by Mike O'Sullivan
+ my $ws = $sep eq ' ' ? '[\x09]'
+ : $sep eq "\t" ? '[\x20]'
+ : '[\x20\x09]'
+ ;
+
if ( $quot eq '' ) {
- return qr/[\x20\x09]*([^\Q$sep\E]?)[\x20\x09]*\Q$sep\E[\x20\x09]*/s;
- }
-
- qr/[\x20\x09]*
+ return qr/$ws*([^\Q$sep\E]?)$ws*\Q$sep\E$ws*/s;
+ }
+
+ qr/$ws*
(
\Q$quot\E
[^\Q$quot$esc\E]*(?:\Q$esc\E[\Q$quot$esc\E0][^\Q$quot$esc\E]*)*
@@ -510,7 +517,7 @@
| # or
[^\Q$sep\E]*?
)
- [\x20\x09]*\Q$sep\E[\x20\x09]*
+ $ws*\Q$sep\E$ws*
/xs;
}
################################################################################
More information about the Pkg-perl-cvs-commits
mailing list