skip charname stuff for Perl 5.005

git-svn-id: https://svn.parrot.org/parrot/trunk@4109 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
fernandobrito · Sep 19, 2003 · f23223b · f23223b
1 parent ff29f11
commit f23223b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/languages/perl6/t/compiler/b.t b/languages/perl6/t/compiler/b.t
@@ -69,7 +69,7 @@ OUT
 
 ##############################
 SKIP: {
-skip("running on a perl without charnames", 1)
+skip("running on a perl without charnames", 2)
     unless eval "use charnames (); 1";
 output_is(<<'CODE', <<'OUT', "string interpolation 4");
 sub main() {
@@ -86,7 +86,6 @@ CODE
 16
 @P
 OUT
-}
 
 ##############################
 output_is(<<'CODE', <<'OUT', "string interpolation 5");
@@ -103,6 +102,7 @@ XXX
 xxx
 OUT
 
+}
 ##############################
 output_is(<<'CODE', <<'OUT', "string interpolation 6");
 sub main() {