[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 (file)
--- 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 (file)
--- 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 (executable)
--- 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'"