r32030 - in /trunk/libtext-csv-xs-perl: CSV_XS.pm ChangeLog META.yml debian/changelog
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Fri Mar 13 20:25:05 UTC 2009
Author: ryan52-guest
Date: Fri Mar 13 20:25:01 2009
New Revision: 32030
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32030
Log:
New upstream release
Modified:
trunk/libtext-csv-xs-perl/CSV_XS.pm
trunk/libtext-csv-xs-perl/ChangeLog
trunk/libtext-csv-xs-perl/META.yml
trunk/libtext-csv-xs-perl/debian/changelog
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=32030&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/CSV_XS.pm (original)
+++ trunk/libtext-csv-xs-perl/CSV_XS.pm Fri Mar 13 20:25:01 2009
@@ -30,7 +30,7 @@
use Carp;
use vars qw( $VERSION @ISA );
-$VERSION = "0.61";
+$VERSION = "0.62";
@ISA = qw( DynaLoader );
bootstrap Text::CSV_XS $VERSION;
@@ -88,7 +88,7 @@
my $class = ref ($proto) || $proto or return;
for (keys %{$attr}) {
if (m/^[a-z]/ && exists $def_attr{$_}) {
- $] >= 5.008002 && m/_char$/ and utf8::decode $attr->{$_};
+ $] >= 5.008002 && m/_char$/ and utf8::decode ($attr->{$_});
next;
}
# croak?
@@ -129,7 +129,7 @@
{
my ($self, $name, $val) = @_;
defined $val or $val = 0;
- $] >= 5.008002 and utf8::decode $val;
+ $] >= 5.008002 and utf8::decode ($val);
$self->{$name} = $val;
$self->{_CACHE} or return;
my @cache = unpack "C*", $self->{_CACHE};
@@ -1277,10 +1277,33 @@
close $fh or die "file.csv: $!";
For more extended examples, see the C<examples/> subdirectory in the
-original distribution. Included is C<examples/parser-xs.pl>, that could
-be used to `fix' bad CSV and parse beyond errors.
-
- perl examples/parser-xs.pl bad.csv >good.csv
+original distribution. The following files can be found there:
+
+=over 2
+
+=item parser-xs.pl
+
+This can be used as a boilerplate to `fix' bad CSV and parse beyond errors.
+
+ $ perl examples/parser-xs.pl bad.csv >good.csv
+
+=item csv-check
+
+This is a command-line tool that uses parser-xs.pl techniques to check the
+CSV file and report on its content.
+
+ $ csv-check files/utf8.csv
+ Checked with examples/csv-check 1.2 using Text::CSV_XS 0.61
+ OK: rows: 1, columns: 2
+ sep = <,>, quo = <">, bin = <1>
+
+=item csv2xls
+
+A script to convert CSV to Microsoft Excel. This requires L<Date::Calc(3)>
+and L<Spreadsheet::WriteExcel(3)>. The converter acceps various options and
+can produce UTF-8 Excel files.
+
+=back
=head1 CAVEATS
@@ -1303,13 +1326,6 @@
=over 2
-=item More tests
-
-For all possible errors, there should be a test.
-
-All XS code should be covered in the test cases, except for perl
-internal failure, like failing to store a hash value.
-
=item More Errors & Warnings
New extensions ought to be clear and concise in reporting what error
@@ -1335,11 +1351,6 @@
C<string ()> in a single call will B<not> be honored. Likewise for
C<parse ()> and C<fields ()>. Given the trouble with embedded newlines,
Using C<getline ()> and C<print ()> instead is the prefered way to go.
-
-=item Unicode
-
-We probably need many more tests to check if all edge-cases are covered.
-See t/50_utf8.t.
=item Parse the whole file at once
@@ -1397,6 +1408,9 @@
is never cleared on success, so using the value returned by C<error_diag ()> in
normal cases - when no error occured - may cause unexpected results.
+If the constructor failed, the cause can be found using C<error_diag ()> as a
+class method, like C<Text::CSV_XS->error_diag ()>.
+
Currently errors as described below are available. I've tried to make the error
itself explanatory enough, but more descriptions will be added. For most of
these errors, the first three capitals describe the error category:
@@ -1534,7 +1548,7 @@
=head1 SEE ALSO
L<perl(1)>, L<IO::File(3)>, L<IO::Handle(3)>, L<IO::Wrap(3)>,
-L<Text::CSV(3)>, L<Text::CSV_PP(3)>, L<Text::CSV::Encoded>,
+L<Text::CSV(3)>, L<Text::CSV_PP(3)>, L<Text::CSV::Encoded(3)>,
L<Text::CSV::Separator(3)>, and L<Spreadsheet::Read(3)>.
=head1 AUTHORS and MAINTAINERS
@@ -1552,8 +1566,8 @@
H.Merijn Brand F<E<lt>h.m.brand at xs4all.nlE<gt>> cleaned up the code,
added the field flags methods, wrote the major part of the test suite,
-completed the documentation, fixed some RT bugs. See ChangeLog releases
-0.25 and on.
+completed the documentation, fixed some RT bugs and added all the allow
+flags. See ChangeLog releases 0.25 and on.
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libtext-csv-xs-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/ChangeLog?rev=32030&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/ChangeLog (original)
+++ trunk/libtext-csv-xs-perl/ChangeLog Fri Mar 13 20:25:01 2009
@@ -1,3 +1,10 @@
+2009-03-13 0.62 - H.Merijn Brand <h.m.brand at xs4all.nl>
+
+ * Prevent warnings in older perls (without utf8)
+ * All known errors are covered and/or documented. TODO dropped
+ * Unicode TODO dropped. All covered, or use Text::CSV::Encoded
+ * Documented the examples
+
2009-03-08 0.61 - H.Merijn Brand <h.m.brand at xs4all.nl>
* valgrind found a possible uninitialized value
Modified: trunk/libtext-csv-xs-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/META.yml?rev=32030&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/META.yml (original)
+++ trunk/libtext-csv-xs-perl/META.yml Fri Mar 13 20:25:01 2009
@@ -1,6 +1,6 @@
--- #YAML:1.1
name: Text-CSV_XS
-version: 0.61
+version: 0.62
abstract: Comma-Separated Values manipulation routines
license: perl
author:
@@ -10,7 +10,7 @@
provides:
Text::CSV_XS:
file: CSV_XS.pm
- version: 0.61
+ version: 0.62
requires:
perl: 5.005
DynaLoader: 0
Modified: trunk/libtext-csv-xs-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/debian/changelog?rev=32030&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/debian/changelog (original)
+++ trunk/libtext-csv-xs-perl/debian/changelog Fri Mar 13 20:25:01 2009
@@ -1,3 +1,9 @@
+libtext-csv-xs-perl (0.62-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Ryan Niebur <ryanryan52 at gmail.com> Fri, 13 Mar 2009 13:23:56 -0700
+
libtext-csv-xs-perl (0.61-1) unstable; urgency=low
* New upstream release.
More information about the Pkg-perl-cvs-commits
mailing list