Mark all .t and .pm files as non executable

[p5sagit/p5-mst-13.2.git] / lib / Pod / t / pod2html-lib.pl

diff --git a/lib/Pod/t/pod2html-lib.pl b/lib/Pod/t/pod2html-lib.pl
index 0361a0a..db33f7d 100644 (file)
--- a/lib/Pod/t/pod2html-lib.pl
+++ b/lib/Pod/t/pod2html-lib.pl
@@ -28,7 +28,7 @@ sub convert_n_test {
        $expect = <DATA>;
        $expect =~ s/\[PERLADMIN\]/$Config::Config{perladmin}/;
        if (ord("A") == 193) { # EBCDIC.
-           $expect =~ s/item_mat%3c%21%3e/item_mat%4c%5a%6e/;
+           $expect =~ s/item_mat_3c_21_3e/item_mat_4c_5a_6e/;
        }
 
        # result
@@ -55,9 +55,8 @@ sub convert_n_test {
 
     # pod2html creates these
     1 while unlink $outfile;
-    my $cache_ext = $^O eq 'VMS' ? ".tmp" : ".x~~";
-    1 while unlink "pod2htmd$cache_ext";
-    1 while unlink "pod2htmi$cache_ext";
+    1 while unlink "pod2htmd.tmp";
+    1 while unlink "pod2htmi.tmp";
 }
 
 1;