From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 27 Nov 2001 17:11:49 +0000 (-0600)
Subject: fix lib/DB.t on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eca89c5aec5fdc75755d569b277e8d7a65800f20;p=p5sagit%2Fp5-mst-13.2.git

fix lib/DB.t on VMS
Message-Id: <5.1.0.14.2.20011127164513.01bf1ec0@exchi01>

p4raw-id: //depot/perl@13331
---

diff --git a/lib/DB.t b/lib/DB.t
index 06dda90..0b4548c 100644
--- a/lib/DB.t
+++ b/lib/DB.t
@@ -54,6 +54,8 @@ BEGIN {
 
 # test DB::save()
 {
+       no warnings 'uninitialized';
+
 	# assigning a number to $! seems to produce an error message, when read
 	local ($@, $,, $/, $\, $^W, $!) = (1 .. 5);
 	DB::save();
@@ -107,7 +109,7 @@ is( DB::_clientname('bar'), '','DB::_clientname should not return non refname');
 
 	my $line = __LINE__ + 1;
 	my @ret = eval { DB->backtrace() };
-	like( $ret[0], qr/file.+$0/, 'DB::backtrace() should report current file');
+       like( $ret[0], qr/file.+\Q$0\Q/, 'DB::backtrace() should report current file');
 	like( $ret[0], qr/line $line/, '... should report calling line number' );
 	like( $ret[0], qr/eval {...}/, '... should catch eval BLOCK' );