r19174 - in /trunk/libtext-csv-perl/debian: changelog patches/04_examples.patch

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Fri Apr 25 22:06:26 2008
New Revision: 19174

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=19174
Log:
Refresh and update patch 04_examples.patch.

Modified:
    trunk/libtext-csv-perl/debian/changelog
    trunk/libtext-csv-perl/debian/patches/04_examples.patch

Modified: trunk/libtext-csv-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-perl/debian/changelog?rev=19174&op=diff
==============================================================================
--- trunk/libtext-csv-perl/debian/changelog (original)
+++ trunk/libtext-csv-perl/debian/changelog Fri Apr 25 22:06:26 2008
@@ -1,8 +1,9 @@
 libtext-csv-perl (0.45-1) UNRELEASED; urgency=low
 
   * New upstream release.
-
- -- gregor herrmann <gregoa at debian.org>  Sat, 26 Apr 2008 00:00:24 +0200
+  * Refresh and update patch 04_examples.patch.
+
+ -- gregor herrmann <gregoa at debian.org>  Sat, 26 Apr 2008 00:03:27 +0200
 
 libtext-csv-perl (0.43-1) unstable; urgency=low
 

Modified: trunk/libtext-csv-perl/debian/patches/04_examples.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-perl/debian/patches/04_examples.patch?rev=19174&op=diff
==============================================================================
--- trunk/libtext-csv-perl/debian/patches/04_examples.patch (original)
+++ trunk/libtext-csv-perl/debian/patches/04_examples.patch Fri Apr 25 22:06:26 2008
@@ -55,9 +55,9 @@
 -use Text::CSV_XS;
 +use Text::CSV;
  
- my ($bin, $rows, %cols, $firstline) = (0, 0);
- unless ($sep) { # No sep char passed, try to auto-detect;
-@@ -50,7 +50,7 @@
+ if (@ARGV && -f $ARGV[0] && !-s $ARGV[0]) {
+     print STDERR "$ARGV[0] is empty\n";
+@@ -55,7 +55,7 @@
  	}
      }
  
@@ -66,3 +66,31 @@
      sep_char       => $sep,
      quote_char     => $quo,
      binary         => 1,
+--- libtext-csv-perl.orig/examples/parser-xs.pl
++++ libtext-csv-perl/examples/parser-xs.pl
+@@ -6,13 +6,13 @@
+ use strict;
+ use warnings;
+ 
+-use Text::CSV_XS;
++use Text::CSV;
+ 
+-my $csv = Text::CSV_XS->new ({ binary             => 1,
++my $csv = Text::CSV->new ({ binary             => 1,
+ 			       blank_is_undef     => 1,
+ 			       eol                => $/,
+ 			       });
+-my $csa = Text::CSV_XS->new ({ binary             => 1,
++my $csa = Text::CSV->new ({ binary             => 1,
+ 			       allow_loose_quotes => 1,
+ 			       blank_is_undef     => 1,
+ 			       escape_char        => undef,
+@@ -23,7 +23,7 @@
+ 
+ my %err_eol = map { $_ => 1 } 2010, 2027, 2031, 2032;
+ 
+-print STDERR "Reading $file with Text::CSV_XS $Text::CSV_XS::VERSION\n";
++print STDERR "Reading $file with Text::CSV $Text::CSV::VERSION\n";
+ while (1) {
+     my $row = $csv->getline ($fh);
+