Author: pgollucci
Date: Mon Mar 26 23:55:00 2007
New Revision: 9349
Modified:
dbi/trunk/lib/DBD/Gofer/Transport/pipeone.pm
dbi/trunk/lib/DBD/Gofer/Transport/stream.pm
Log:
Fix the regex's checking for blib warnings to match.
The test suite now seems to be warnings free.
Modified: dbi/trunk/lib/DBD/Gofer/Transport/pipeone.pm
==============================================================================
--- dbi/trunk/lib/DBD/Gofer/Transport/pipeone.pm (original)
+++ dbi/trunk/lib/DBD/Gofer/Transport/pipeone.pm Mon Mar 26 23:55:00 2007
@@ -115,7 +115,7 @@
# add stderr messages as warnings (for PrintWarn)
$response->add_err(0, $stderr_msg, undef, $self->trace)
# but ignore warning from old version of blib
- unless $stderr_msg =~ /^Using .*blib at / && "@$cmd" =~ /-Mblib/;
+ unless $stderr_msg =~ /^Using .*blib/ && "@$cmd" =~ /-Mblib/;
}
return $response;
Modified: dbi/trunk/lib/DBD/Gofer/Transport/stream.pm
==============================================================================
--- dbi/trunk/lib/DBD/Gofer/Transport/stream.pm (original)
+++ dbi/trunk/lib/DBD/Gofer/Transport/stream.pm Mon Mar 26 23:55:00 2007
@@ -176,7 +176,7 @@
# add stderr messages as warnings (for PrintWarn)
$response->add_err(0, $stderr_msg, undef, $self->trace)
# but ignore warning from old version of blib
- unless $stderr_msg =~ /^Using .*blib at / && "@$cmd" =~ /-Mblib/;
+ unless $stderr_msg =~ /^Using .*blib/ && "@$cmd" =~ /-Mblib/;
}
return $response;
