perl-5.6 complained about Not enough arguments for Test::skip

gisle · Nov 24, 2006 · fedc66c · fedc66c
1 parent 685cc82
commit fedc66c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/quote.t b/t/quote.t
@@ -22,5 +22,5 @@ if (eval { require MIME::Base64 }) {
     ok(dump(join("", map chr($_), 0..255)), "do {\n  require MIME::Base64;\n  MIME::Base64::decode(\"AAECAwQFBgcICQoLDA0ODxAREhMUFRYXGBkaGxwdHh8gISIjJCUmJygpKissLS4vMDEyMzQ1Njc4OTo7PD0+P0BBQkNERUZHSElKS0xNTk9QUVJTVFVWV1hZWltcXV5fYGFiY2RlZmdoaWprbG1ub3BxcnN0dXZ3eHl6e3x9fn+AgYKDhIWGh4iJiouMjY6PkJGSk5SVlpeYmZqbnJ2en6ChoqOkpaanqKmqq6ytrq+wsbKztLW2t7i5uru8vb6/wMHCw8TFxsfIycrLzM3Oz9DR0tPU1dbX2Nna29zd3t/g4eLj5OXm5+jp6uvs7e7v8PHy8/T19vf4+fr7/P3+/w==\");\n}");
 }
 else {
-    skip("MIME::Base64 missing");
+    skip("MIME::Base64 missing", 1);
 }