Mark all .t and .pm files as non executable

[p5sagit/p5-mst-13.2.git] / lib / Pod / t / text-utf8.t

diff --git a/lib/Pod/t/text-utf8.t b/lib/Pod/t/text-utf8.t
old mode 100755 (executable)
new mode 100644 (file)
index 7572825..8069478
--- a/lib/Pod/t/text-utf8.t
+++ b/lib/Pod/t/text-utf8.t
@@ -17,6 +17,15 @@ BEGIN {
     unshift (@INC, '../blib/lib');
     $| = 1;
     print "1..3\n";
+
+    # UTF-8 support requires Perl 5.8 or later.
+    if ($] < 5.008) {
+        my $n;
+        for $n (1..3) {
+            print "ok $n # skip -- Perl 5.8 required for UTF-8 support\n";
+        }
+        exit;
+    }
 }
 
 END {
@@ -24,7 +33,6 @@ END {
 }
 
 use Pod::Text;
-use Pod::Simple;
 
 $loaded = 1;
 print "ok 1\n";
@@ -44,7 +52,6 @@ while (<DATA>) {
     }
     close TMP;
     open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
-    eval { binmode (\*OUT, ':encoding(utf-8)') };
     $parser->parse_from_file ('tmp.pod', \*OUT);
     close OUT;
     open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";