r63589 - in /trunk/libtext-csv-xs-perl: CSV_XS.pm CSV_XS.xs ChangeLog META.yml debian/changelog debian/control debian/copyright t/80_diag.t

ansgar at users.alioth.debian.org ansgar at users.alioth.debian.org
Mon Oct 11 12:25:36 UTC 2010


Author: ansgar
Date: Mon Oct 11 12:24:45 2010
New Revision: 63589

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63589
Log:
* New upstream release.
* Update my email address.

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/debian/changelog
    trunk/libtext-csv-xs-perl/debian/control
    trunk/libtext-csv-xs-perl/debian/copyright
    trunk/libtext-csv-xs-perl/t/80_diag.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=63589&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/CSV_XS.pm (original)
+++ trunk/libtext-csv-xs-perl/CSV_XS.pm Mon Oct 11 12:24:45 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: 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=63589&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/CSV_XS.xs (original)
+++ trunk/libtext-csv-xs-perl/CSV_XS.xs Mon Oct 11 12:24:45 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: trunk/libtext-csv-xs-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/ChangeLog?rev=63589&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/ChangeLog (original)
+++ trunk/libtext-csv-xs-perl/ChangeLog Mon Oct 11 12:24:45 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: trunk/libtext-csv-xs-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/META.yml?rev=63589&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/META.yml (original)
+++ trunk/libtext-csv-xs-perl/META.yml Mon Oct 11 12:24:45 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: trunk/libtext-csv-xs-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/debian/changelog?rev=63589&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/debian/changelog (original)
+++ trunk/libtext-csv-xs-perl/debian/changelog Mon Oct 11 12:24:45 2010
@@ -1,3 +1,10 @@
+libtext-csv-xs-perl (0.75-1) unstable; urgency=low
+
+  * New upstream release.
+  * Update my email address.
+
+ -- Ansgar Burchardt <ansgar at debian.org>  Mon, 11 Oct 2010 12:05:14 +0200
+
 libtext-csv-xs-perl (0.74-1) unstable; urgency=low
 
   [ gregor herrmann ]

Modified: trunk/libtext-csv-xs-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/debian/control?rev=63589&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/debian/control (original)
+++ trunk/libtext-csv-xs-perl/debian/control Mon Oct 11 12:24:45 2010
@@ -7,7 +7,7 @@
 Uploaders: Gunnar Wolf <gwolf at debian.org>, Niko Tyni <ntyni at debian.org>,
  Krzysztof Krzyzaniak (eloy) <eloy at debian.org>, Damyan Ivanov <dmn at debian.org>,
  gregor herrmann <gregoa at debian.org>, Vincent Danjean <vdanjean at debian.org>,
- Ansgar Burchardt <ansgar at 43-1.org>, Jonathan Yu <jawnsy at cpan.org>,
+ Ansgar Burchardt <ansgar at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
  Jose Luis Rivas <ghostbar at debian.org>, Ryan Niebur <ryan at debian.org>,
  Franck Joncourt <franck at debian.org>
 Standards-Version: 3.9.1

Modified: trunk/libtext-csv-xs-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/debian/copyright?rev=63589&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/debian/copyright (original)
+++ trunk/libtext-csv-xs-perl/debian/copyright Mon Oct 11 12:24:45 2010
@@ -28,7 +28,7 @@
  2006, Niko Tyni <ntyni at iki.fi>
  2007, 2008, Damyan Ivanov <dmn at debian.org>
  2007, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
- 2008-2010, Ansgar Burchardt <ansgar at 43-1.org>
+ 2008-2010, Ansgar Burchardt <ansgar at debian.org>
  2007-2010, gregor herrmann <gregoa at debian.org>
  2008, Jose Luis Rivas <ghostbar38 at gmail.com>
  2008, Vincent Danjean <vdanjean at debian.org>

Modified: trunk/libtext-csv-xs-perl/t/80_diag.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-csv-xs-perl/t/80_diag.t?rev=63589&op=diff
==============================================================================
--- trunk/libtext-csv-xs-perl/t/80_diag.t (original)
+++ trunk/libtext-csv-xs-perl/t/80_diag.t Mon Oct 11 12:24:45 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;




More information about the Pkg-perl-cvs-commits mailing list