Re: [PATCH perl@13324] fix lib/DB.t on VMS

On Tue, 27 Nov 2001 17:11:49 -0600, craigberry@mac.com (Craig A. Berry) wrote:

> -       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');

The opposite of \Q is \E, and you changed a tab to seven(!) spaces:

--- lib/DB.t.orig       Sat Dec  1 21:33:56 2001
+++ lib/DB.t    Sun Dec  2 09:56:38 2001
@@ -117,7 +117,7 @@

        my $line = __LINE__ + 1;
        my @ret = eval { DB->backtrace() };
-       like( $ret[0], qr/file.+\Q$0\Q/, 'DB::backtrace() should report current file');
+	like( $ret[0], qr/file.+\Q$0\E/, '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.

Cheers,
Philip

• Re: [PATCH perl@13324] fix lib/DB.t on VMS by Philip Newton
• Re: [PATCH perl@13324] fix lib/DB.t on VMS by Craig A. Berry
• Re: [PATCH perl@13324] fix lib/DB.t on VMS by Jarkko Hietaniemi