Mark all .t and .pm files as non executable

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

diff --git a/lib/Pod/t/filehandle.t b/lib/Pod/t/filehandle.t
index bcad199..a53884d 100644 (file)
--- a/lib/Pod/t/filehandle.t
+++ b/lib/Pod/t/filehandle.t
@@ -1,5 +1,4 @@
 #!/usr/bin/perl -w
-# $Id: filehandle.t,v 1.1 2006-02-19 23:02:37 eagle Exp $
 #
 # filehandle.t -- Test the parse_from_filehandle interface.
 #
@@ -47,7 +46,7 @@ while (<DATA>) {
     close IN;
     close OUT;
     open (OUT, 'out.tmp') or die "Cannot open out.tmp: $!\n";
-    while (<OUT>) { last if /^\.TH/ }
+    while (<OUT>) { last if /^\.nh/ }
     my $output;
     {
         local $/;