@@ -3,7 +3,7 @@ package Install;
3
3
#
4
4
# Package that provides 'make install' functionality for msvc builds
5
5
#
6
- # $PostgreSQL: pgsql/src/tools/msvc/Install.pm,v 1.26 2007/12/03 15:42:58 mha Exp $
6
+ # $PostgreSQL: pgsql/src/tools/msvc/Install.pm,v 1.27 2008/02/07 13:49:00 mha Exp $
7
7
#
8
8
use strict;
9
9
use warnings;
@@ -456,27 +456,27 @@ sub GenerateNLSFiles
456
456
print " Installing NLS files..." ;
457
457
EnsureDirectories($target , " share/locale" );
458
458
my @flist ;
459
- File::Find::find({wanted =>
460
- sub { / ^nls\. mk\z /s &&
461
- ! push (@flist , $File::Find::name );
462
- }
459
+ File::Find::find({wanted =>
460
+ sub { / ^nls\. mk\z /s &&
461
+ !push (@flist , $File::Find::name );
462
+ }
463
463
}, " src" );
464
464
foreach (@flist )
465
465
{
466
466
s / nls.mk/ po/ ;
467
467
my $dir = $_ ;
468
- next unless ($dir =~ / ([^\\ ]+)\\ po$ / );
468
+ next unless ($dir =~ / ([^\/ ]+)\/ po$ / );
469
469
my $prgm = $1 ;
470
470
$prgm = ' postgres' if ($prgm eq ' backend' );
471
471
foreach (glob (" $dir /*.po" ))
472
472
{
473
473
my $lang ;
474
- next unless / ^(.* )\. po/ ;
474
+ next unless / ([^ \/ ]+ )\. po/ ;
475
475
$lang = $1 ;
476
476
477
477
EnsureDirectories($target , " share/locale/$lang " , " share/locale/$lang /LC_MESSAGES" );
478
478
system (
479
- " $nlspath \\ bin\\ msgfmt -o $target \\ share\\ locale\\ $lang \\ LC_MESSAGES\\ $prgm .mo $dir \\ $ _"
479
+ " $nlspath \\ bin\\ msgfmt -o $target \\ share\\ locale\\ $lang \\ LC_MESSAGES\\ $prgm .mo $_ "
480
480
)
481
481
&& croak(" Could not run msgfmt on $dir \\ $_ " );
482
482
print " ." ;
0 commit comments