mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use perl's $/ more idiomatically

Browse Source 
This replaces a few occurrences of ugly code with a more clean and
idiomatic usage. The problem was highlighted by perlcritic, but we're
not enforcing the policy that led to the discovery.

Discussion: https://postgr.es/m/20200412074245.GB623763@rfd.leadboat.com
This commit is contained in:
Andrew Dunstan 2020-04-13 12:06:11 -04:00
parent 7be5d8df1f
commit 8f00d84afc
3 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/tools/msvc/Install.pm
View File

@ -762,13 +762,10 @@ sub read_file
{
my $filename = shift;
my $F;
my $t = $/;
undef $/;
local $/ = undef;
open($F, '<', $filename) || die "Could not open file $filename\n";
my $txt = <$F>;
close($F);
$/ = $t;
return $txt;
}

10
src/tools/msvc/Project.pm
View File

@ -420,13 +420,10 @@ sub read_file
{
my $filename = shift;
my $F;
my $t = $/;
undef $/;
local $/ = undef;
open($F, '<', $filename) || croak "Could not open file $filename\n";
my $txt = <$F>;
close($F);
$/ = $t;
return $txt;
}
@ -435,15 +432,12 @@ sub read_makefile
{
my $reldir = shift;
my $F;
my $t = $/;
undef $/;
local $/ = undef;
open($F, '<', "$reldir/GNUmakefile")
|| open($F, '<', "$reldir/Makefile")
|| confess "Could not open $reldir/Makefile\n";
my $txt = <$F>;
close($F);
$/ = $t;
return $txt;
}

9
src/tools/win32tzlist.pl
View File

@ -60,12 +60,13 @@ $basekey->Close();
# Fetch all timezones currently in the file
#
my @file_zones;
my $pgtz;
open(my $tzfh, '<', $tzfile) or die "Could not open $tzfile!\n";
my $t = $/;
undef $/;
my $pgtz = <$tzfh>;
{
local $/ = undef;
$pgtz = <$tzfh>;
}
close($tzfh);
$/ = $t;
# Attempt to locate and extract the complete win32_tzmap struct
$pgtz =~ /win32_tzmap\[\] =\s+{\s+\/\*[^\/]+\*\/\s+(.+?)};/gs