From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 8 Jan 2006 22:14:13 +0000 (+0000)
Subject: VMS needs the meta-quoted version of $0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03156efbedd2f4b3e75f73557ee3ec377e85c61a;p=p5sagit%2Fp5-mst-13.2.git

VMS needs the meta-quoted version of $0

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

diff --git a/lib/Test/Simple/t/is_deeply_fail.t b/lib/Test/Simple/t/is_deeply_fail.t
index efbbddd..94ece33 100644
--- a/lib/Test/Simple/t/is_deeply_fail.t
+++ b/lib/Test/Simple/t/is_deeply_fail.t
@@ -364,7 +364,7 @@ ERR
     ok !is_deeply( $glob1, $glob2 ), 'typeglobs';
     is( $out, "not ok 28\n" );
     like( $err, <<ERR,	     '  right diagnostic' );
-#   Failed test in $0 at line 357.
+#   Failed test in $Filename at line 357.
 #     Structures begin differing at:
 #          \\\$got = GLOB\\(0x[0-9a-f]+\\)
 #     \\\$expected = GLOB\\(0x[0-9a-f]+\\)