r63573 - in /branches/upstream/libtext-csv-xs-perl/current: CSV_XS.pm CSV_XS.xs ChangeLog META.yml t/80_diag.t

[ansgar at users.alioth.debian.org]

Author: ansgar
Date: Mon Oct 11 09:47:48 2010
New Revision: 63573

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

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/t/80_diag.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=63573&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/CSV_XS.pm (original)
+++ branches/upstream/libtext-csv-xs-perl/current/CSV_XS.pm Mon Oct 11 09:47:48 2010
@@ -30,7 +30,7 @@
 use Carp;
 
 use vars   qw( $VERSION @ISA );
-$VERSION = "0.74";
+$VERSION = "0.75";
 @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=63573&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/CSV_XS.xs (original)
+++ branches/upstream/libtext-csv-xs-perl/current/CSV_XS.xs Mon Oct 11 09:47:48 2010
@@ -1445,7 +1445,7 @@
     csv.useIO = useIO;
 #if (PERL_BCDVERSION >= 0x5008000)
     if (csv.eol && *csv.eol)
-	PL_ors_sv = &PL_sv_undef;
+	PL_ors_sv = NULL;
 #endif
     result = Combine (&csv, io, av);
 #if (PERL_BCDVERSION >= 0x5008000)

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=63573&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/ChangeLog (original)
+++ branches/upstream/libtext-csv-xs-perl/current/ChangeLog Mon Oct 11 09:47:48 2010
@@ -1,3 +1,6 @@
+2010-10-05 0.75 - H.Merijn Brand   <h.m.brand at xs4all.nl>
+    * Fixed undefinedness of $\ in print (RT#61880)
+
 2010-09-29 0.74 - H.Merijn Brand   <h.m.brand at xs4all.nl>
 
     * Spelling fixes

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=63573&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/META.yml (original)
+++ branches/upstream/libtext-csv-xs-perl/current/META.yml Mon Oct 11 09:47:48 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                    Text-CSV_XS
-version:                 0.74
+version:                 0.75
 abstract:                Comma-Separated Values manipulation routines
 license:                 perl
 author:              
@@ -10,7 +10,7 @@
 provides:
     Text::CSV_XS:
         file:            CSV_XS.pm
-        version:         0.74
+        version:         0.75
 requires:     
     perl:                5.005
     DynaLoader:          0

Modified: branches/upstream/libtext-csv-xs-perl/current/t/80_diag.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-csv-xs-perl/current/t/80_diag.t?rev=63573&op=diff
==============================================================================
--- branches/upstream/libtext-csv-xs-perl/current/t/80_diag.t (original)
+++ branches/upstream/libtext-csv-xs-perl/current/t/80_diag.t Mon Oct 11 09:47:48 2010
@@ -3,7 +3,7 @@
 use strict;
 $^W = 1;
 
- use Test::More tests => 99;
+ use Test::More tests => 122;
 #use Test::More "no_plan";
 
 my %err;
@@ -116,4 +116,19 @@
     like ($@, qr '^# CSV_XS ERROR: 2027 -', "2 - error message");
     }
 
+{   my $diag_file = "_$$.out";
+    open  EH,     ">&STDERR";
+    open  STDERR, ">$diag_file";
+    ok ($csv->_cache_diag,	"Cache debugging output");
+    close STDERR;
+    open  STDERR, ">&EH";
+    open  EH,     "<$diag_file";
+    is (scalar <EH>, "CACHE:\n",	"Title");
+    while (<EH>) {
+	like ($_, qr{^  \w+\s+[0-9a-f]+:(?:".*"|\s*[0-9]+)$}, "Content");
+	}
+    close EH;
+    unlink $diag_file;
+    }
+
 1;