Restrict overly broad searches, and fix typo, in recent fix. Per Hannes Eder.

diff --git a/src/tools/msvc/Install.pm b/src/tools/msvc/Install.pm
index 92007e3b9a09d897d22b93b98ad7412fca63f3ae..6a89f755e1a5d22b5ceffcf751100d47020e2cfd 100644 (file)
--- a/src/tools/msvc/Install.pm
+++ b/src/tools/msvc/Install.pm
@@ -3,7 +3,7 @@ package Install;
 #
 # Package that provides 'make install' functionality for msvc builds
 #
-# $PostgreSQL: pgsql/src/tools/msvc/Install.pm,v 1.20 2007/09/22 20:38:10 adunstan Exp $
+# $PostgreSQL: pgsql/src/tools/msvc/Install.pm,v 1.21 2007/09/23 20:32:40 adunstan Exp $
 #
 use strict;
 use warnings;
@@ -50,7 +50,7 @@ sub Install
                                                                        push(@$sample_files, $File::Find::name); 
                                                        } 
                                  }, 
-                                        "../.." );
+                                        "src" );
     CopySetOfFiles('config files', $sample_files , $target . '/share/');
     CopyFiles(
         'Import libraries',
@@ -81,7 +81,7 @@ sub Install
                                   [ glob ("src\\backend\\snowball\\stopwords\\*.stop") ], 
                                   $target . '/share/tsearch_data/');
     CopySetOfFiles('Dictionaries sample files', 
-                                  [ glob ("src\\backend\\tsearch\\\*_sample.*" ) ], 
+                                  [ glob ("src\\backend\\tsearch\\*_sample.*" ) ], 
                                   $target . '/share/tsearch_data/');
     CopyContribFiles($config,$target);
     CopyIncludeFiles($target);
@@ -424,7 +424,6 @@ sub GenerateNLSFiles
 {
     my $target = shift;
     my $nlspath = shift;
-    my $D;
 
     print "Installing NLS files...";
     EnsureDirectories($target, "share/locale");
@@ -433,7 +432,7 @@ sub GenerateNLSFiles
                                                  sub { /^nls\.mk\z/s && 
                                                                        !                                                                       push(@flist, $File::Find::name);        
                                                        } 
-                                 }, ".");
+                                 }, "src");
     foreach (@flist)
     {
         s/nls.mk/po/;