X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Fi386%2Flibpod-simple-perl%2Flibpod-simple-perl-3.07%2Ft%2F20_skip.t;fp=dev%2Fi386%2Flibpod-simple-perl%2Flibpod-simple-perl-3.07%2Ft%2F20_skip.t;h=c06220e8c29dd502762e5e9fbe093d7299e9ad9c;hp=0000000000000000000000000000000000000000;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hpb=df794b845212301ea0d267c919232538bfef356a

diff --git a/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/20_skip.t b/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/20_skip.t
new file mode 100644
index 0000000..c06220e
--- /dev/null
+++ b/dev/i386/libpod-simple-perl/libpod-simple-perl-3.07/t/20_skip.t
@@ -0,0 +1,19 @@
+# 20 skip under 5.8
+BEGIN {
+    if($ENV{PERL_CORE}) {
+        chdir 't';
+        @INC = '../lib';
+    }
+}
+
+print "1..2\n";
+  print "# Running under Perl v $]\n";
+if($] < 5.008) {
+  print "ok 1 # Skip under Perl before 5.8 ($])\n";
+} else {
+  print "ok 1\n";
+  print "# ^ not skipping\n";
+}
+
+print "ok 2\n";
+