This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Declaring mostly TODO
[perl5.git] / t / test.pl
index 5a81d54..c5259de 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -41,6 +41,8 @@ sub _ok {
     # VMS will avenge.
     my $out;
     if ($name) {
     # VMS will avenge.
     my $out;
     if ($name) {
+        # escape out '#' or it will interfere with '# skip' and such
+        $name =~ s/#/\\#/g;
        $out = $pass ? "ok $test - $name" : "not ok $test - $name";
     } else {
        $out = $pass ? "ok $test" : "not ok $test";
        $out = $pass ? "ok $test - $name" : "not ok $test - $name";
     } else {
        $out = $pass ? "ok $test" : "not ok $test";