From: Paul Marquess <Paul.Marquess@ntlworld.com>
Date: Thu, 19 Feb 2009 09:15:01 +0000 (+0000)
Subject: [PATCH] DB_File 1.819
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4300f93b02bb2e0a466478acdc265d15a6154f4c;p=p5sagit%2Fp5-mst-13.2.git

[PATCH] DB_File 1.819

Small change to t/db-recno.t [RT# 43288]

Message-ID: <00ad01c99214$89f5fa50$9de1eef0$@Marquess@ntlworld.com>
---

diff --git a/ext/DB_File/Changes b/ext/DB_File/Changes
index 1036545..ec6b819 100644
--- a/ext/DB_File/Changes
+++ b/ext/DB_File/Changes
@@ -1,5 +1,10 @@
 
 
+1.819 18 February 2009
+
+   * t/db-recno.t fails if run in a path that contains spaces
+     [rt.cpan.org #43288]
+
 1.818 21 January 2009
 
    * Updated Makefile.PL for Strawberry Perl. 
diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm
index 105f121..536f1a4 100644
--- a/ext/DB_File/DB_File.pm
+++ b/ext/DB_File/DB_File.pm
@@ -165,7 +165,7 @@ our ($db_version, $use_XSLoader, $splice_end_array, $Error);
 use Carp;
 
 
-$VERSION = "1.818" ;
+$VERSION = "1.819" ;
 $VERSION = eval $VERSION; # needed for dev releases
 
 {
diff --git a/ext/DB_File/t/db-recno.t b/ext/DB_File/t/db-recno.t
index 1eed35b..3eb6968 100755
--- a/ext/DB_File/t/db-recno.t
+++ b/ext/DB_File/t/db-recno.t
@@ -1477,7 +1477,7 @@ sub test_splice {
 
     foreach ($ms_error, @ms_warnings) {
 	chomp;
-	s/ at \S+ line \d+\.?.*//s;
+    s/ at \S+(\s+\S+)*? line \d+\.?.*//s;
     }
 
     return "different errors: '$s_error' vs '$ms_error'"