--- PerlQt/Makefile.PL.in~	2003-09-22 13:54:09.000000000 +0200
+++ PerlQt/Makefile.PL.in	2003-09-22 13:54:09.000000000 +0200
@@ -63,7 +63,7 @@
    $cxxflags =~ s/ -Wwrite-strings / /g;
    $cxxflags =~ s/ -Wall / /g;
 
-my $doc_dir_glob;
+my $doc_dir_glob  = $x{'datadir'}."/doc/perl-Qt-3.008";
 
 ###
 
@@ -128,13 +128,13 @@
                    $i;
 }
 
-sub MY::install {
-		  package MY;
-		  my $i = shift->SUPER::install(@_);
-		  my $lng = $ENV{LANG};
-		  my $doc_dir = File::Spec->catdir($x{'datadir'},"PerlQt-3");
-		  my $src= File::Spec->catdir(File::Spec->updir, "doc");
-		  my $found = 0;
+#sub MY::install {
+#		  package MY;
+#		  my $i = shift->SUPER::install(@_);
+#		  my $lng = $ENV{LANG};
+#		  my $doc_dir = File::Spec->catdir($x{'datadir'},"PerlQt-3");
+#		  my $src= File::Spec->catdir(File::Spec->updir, "doc");
+#		  my $found = 0;
 		#  for my $l( split(":", $lng) )
 		#  {
 		#    $l =~ s/^(.*?)_.*$/$1/;
@@ -146,15 +146,15 @@
 		#       last;
 		#    }
 		#  }
-                  $i =~ s/^install\s+::\s+all.*$/$& install_my_perlqt_doc/m;
+#                  $i =~ s/^install\s+::\s+all.*$/$& install_my_perlqt_doc/m;
 		#  $src = File::Spec->catdir( $src, "en" ) unless $found;
-		  $i .= "\ninstall_my_perlqt_doc:\n".
-                        "\t\@echo Installing documentation in ${doc_dir}\n".
-                        "\t\@$^X -MExtUtils::Install -MConfig -e \\\n".
-		        "\t\t'install({ \"$src\" => \"${doc_dir}\" },0,0)' \$(DEV_NULL)\n";
-		  $doc_dir_glob = $doc_dir;
-		  $i;
-}
+#		  $i .= "\ninstall_my_perlqt_doc:\n".
+#                        "\t\@echo Installing documentation in ${doc_dir}\n".
+#                        "\t\@$^X -MExtUtils::Install -MConfig -e \\\n".
+#		        "\t\t'install({ \"$src\" => \"${doc_dir}\" },0,0)' \$(DEV_NULL)\n";
+#		  $doc_dir_glob = $doc_dir;
+#		  $i;
+#}
 
 sub interpolate
 {