diff -Naur PodToHTML-0.05/Pod/Find.pm PodToHTML-0.05.fix/Pod/Find.pm
--- PodToHTML-0.05/Pod/Find.pm	2004-06-20 23:20:51.000000000 +0200
+++ PodToHTML-0.05.fix/Pod/Find.pm	1970-01-01 01:00:00.000000000 +0100
@@ -1,72 +0,0 @@
-package Pod::Find;     
-use Exporter;
-use File::Find;
-
-@ISA = qw(Exporter);
-@EXPORT = qw(find_pods contains_pod);
-
-use strict;
-use vars qw(%seen_file @pod_files);
-
-sub find_pods
-{
- local %seen_file;
- local @pod_files;
- find( \&pod_finder, @_);
- return @pod_files;
-}
-
-sub pod_finder
-{
- unless ($seen_file{$File::Find::name})
-  {
-   my $is_pod = 0;                        
-   if (/\.(?:pm|pod|pl)$/i || (-f $_ && -x _ && -T _))
-    {                                     
-     $is_pod = contains_pod($_)           
-    }                                     
-
-   push(@pod_files,$File::Find::name) if ($seen_file{$File::Find::name} = $is_pod); 
-   
-   if (-d $_)
-    {
-     if (/^(\d+\.[\d_]+)$/)
-      {
-       unless (eval "$1" == $])
-        {
-         $File::Find::prune = 1;
-         warn "perl$] skipping $File::Find::name/...\n";
-         return;
-        }
-      }
-    }
-  }         
-}    
-
-sub contains_pod
-{  
- my $file = shift;
- local $/ = '';        
- my $pod = 0;
- if (open(POD,"<$file"))
-  {
-   local $_;  
-   while (<POD>)
-    {         
-     if ($pod = /^=head\d\s/)
-      {
-       last; 
-      }      
-    }         
-   close(POD);
-  }
- else
-  {
-   warn "Cannot open $file:$!\n";
-  }
- return $pod;
-}
-
-
-1;
-__END__
diff -Naur PodToHTML-0.05/Pod/Finder.pm PodToHTML-0.05.fix/Pod/Finder.pm
--- PodToHTML-0.05/Pod/Finder.pm	1970-01-01 01:00:00.000000000 +0100
+++ PodToHTML-0.05.fix/Pod/Finder.pm	2006-04-16 23:33:21.000000000 +0200
@@ -0,0 +1,72 @@
+package Pod::Finder;     
+use Exporter;
+use File::Find;
+
+@ISA = qw(Exporter);
+@EXPORT = qw(find_pods contains_pod);
+
+use strict;
+use vars qw(%seen_file @pod_files);
+
+sub find_pods
+{
+ local %seen_file;
+ local @pod_files;
+ find( \&pod_finder, @_);
+ return @pod_files;
+}
+
+sub pod_finder
+{
+ unless ($seen_file{$File::Find::name})
+  {
+   my $is_pod = 0;                        
+   if (/\.(?:pm|pod|pl)$/i || (-f $_ && -x _ && -T _))
+    {                                     
+     $is_pod = contains_pod($_)           
+    }                                     
+
+   push(@pod_files,$File::Find::name) if ($seen_file{$File::Find::name} = $is_pod); 
+   
+   if (-d $_)
+    {
+     if (/^(\d+\.[\d_]+)$/)
+      {
+       unless (eval "$1" == $])
+        {
+         $File::Find::prune = 1;
+         warn "perl$] skipping $File::Find::name/...\n";
+         return;
+        }
+      }
+    }
+  }         
+}    
+
+sub contains_pod
+{  
+ my $file = shift;
+ local $/ = '';        
+ my $pod = 0;
+ if (open(POD,"<$file"))
+  {
+   local $_;  
+   while (<POD>)
+    {         
+     if ($pod = /^=head\d\s/)
+      {
+       last; 
+      }      
+    }         
+   close(POD);
+  }
+ else
+  {
+   warn "Cannot open $file:$!\n";
+  }
+ return $pod;
+}
+
+
+1;
+__END__
diff -Naur PodToHTML-0.05/podtohtml PodToHTML-0.05.fix/podtohtml
--- PodToHTML-0.05/podtohtml	2004-06-20 23:20:51.000000000 +0200
+++ PodToHTML-0.05.fix/podtohtml	2006-04-16 23:33:42.000000000 +0200
@@ -1,7 +1,7 @@
 #!/usr/local/bin/new/perl -w
 use 5.004;
 use strict;
-use Pod::Find;
+use Pod::Finder;
 use Pod::Links;
 use Pod::Usage;
 use Pod::HTML_Elements;