A first step to getting Perldoc-Server to work on local folders.

perldoc-server for non-installed modules.diff

--- perldoc-server.original	2009-09-04 14:23:55.000000000 +0800
+++ perldoc-server	2009-09-04 14:35:57.000000000 +0800
@@ -31,6 +31,7 @@
 GetOptions(\%options,
   'perl=s',
   'port=i',
+  'search|l=s@',
   'public',
   'help|h|?' => sub{pod2usage(1)},
 );
@@ -52,8 +53,8 @@
 root $ENV{PERLDOC_SERVER_HOME}
 EOT
 
-if ($options{perl}) {
-  print $config_fh perl_config($options{perl});   
+if ($options{perl} || $options{search}) {
+  print $config_fh perl_config($options{perl}, @{$options{search}});
 }
 
 close $config_fh;
@@ -109,10 +110,18 @@
 
 sub perl_config {
   my $perl         = shift;
+  my @search       = @_;
+
+  $perl = $^X unless defined $perl;
+
   my $version_cmd  = 'printf("%vd",$^V)';
   my $perl_version = `$perl -e '$version_cmd'`;
   my $inc_cmd      = 'print "$_\n" foreach @INC';
   my $perl_inc     = `$perl -e '$inc_cmd'`;
+
+  if(@search) {
+    $perl_inc = join("\n", @search);
+  }
   
   $perl_inc =~ s/^/search_path /mg;
   #warn "Using perl INC $perl_inc";