Change 13331 by jhi@alpha on 2001/11/28 00:52:19
Subject: [PATCH perl@13324] fix lib/DB.t on VMS
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Tue, 27 Nov 2001 17:11:49 -0600
Message-Id: <5.1.0.14.2.20011127164513.01bf1ec0@exchi01>
Affected files ...
.... //depot/perl/lib/DB.t#2 edit
Differences ...
==== //depot/perl/lib/DB.t#2 (text) ====
Index: perl/lib/DB.t
--- perl/lib/DB.t.~1~ Tue Nov 27 18:00:05 2001
+++ perl/lib/DB.t Tue Nov 27 18:00:05 2001
@@ -54,6 +54,8 @@
# 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 @@
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' );
End of Patch.
