VMS needs the meta-quoted version of $0
Craig A. Berry [Sun, 8 Jan 2006 22:14:13 +0000 (22:14 +0000)]
p4raw-id: //depot/perl@26743

lib/Test/Simple/t/is_deeply_fail.t

index efbbddd..94ece33 100644 (file)
@@ -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]+\\)