diff options
| -rw-r--r-- | src/tools/msvc/Install.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/tools/msvc/Install.pm b/src/tools/msvc/Install.pm index 546ce9ba350..f052d3bc3c4 100644 --- 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.26 2007/12/03 15:42:58 mha Exp $ +# $PostgreSQL: pgsql/src/tools/msvc/Install.pm,v 1.27 2008/02/07 13:49:00 mha Exp $ # use strict; use warnings; @@ -456,27 +456,27 @@ sub GenerateNLSFiles print "Installing NLS files..."; EnsureDirectories($target, "share/locale"); my @flist; - File::Find::find({wanted => - sub { /^nls\.mk\z/s && - ! push(@flist, $File::Find::name); - } + File::Find::find({wanted => + sub { /^nls\.mk\z/s && + !push(@flist, $File::Find::name); + } }, "src"); foreach (@flist) { s/nls.mk/po/; my $dir = $_; - next unless ($dir =~ /([^\\]+)\\po$/); + next unless ($dir =~ /([^\/]+)\/po$/); my $prgm = $1; $prgm = 'postgres' if ($prgm eq 'backend'); foreach (glob("$dir/*.po")) { my $lang; - next unless /^(.*)\.po/; + next unless /([^\/]+)\.po/; $lang = $1; EnsureDirectories($target, "share/locale/$lang", "share/locale/$lang/LC_MESSAGES"); system( -"$nlspath\\bin\\msgfmt -o $target\\share\\locale\\$lang\\LC_MESSAGES\\$prgm.mo $dir\\$_" +"$nlspath\\bin\\msgfmt -o $target\\share\\locale\\$lang\\LC_MESSAGES\\$prgm.mo $_" ) && croak("Could not run msgfmt on $dir\\$_"); print "."; |