database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-08-27 07:42:10 +03:00
Code Activity

Fix perlcritic warnings

Browse Source
This commit is contained in:
Peter Eisentraut
2017-04-17 13:49:04 -04:00
parent bf2a691e02
commit 0e8286d354
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/common/unicode/generate-norm_test_table.pl
View File

@@ -18,9 +18,9 @@ my $output_file = $ARGV[1];
my $output_base = basename($output_file); my $output_base = basename($output_file);
# Open the input and output files # Open the input and output files
open my $INPUT, $input_file open my $INPUT, '<', $input_file
or die "Could not open input file $input_file: $!"; or die "Could not open input file $input_file: $!";
open my $OUTPUT, "> $output_file" open my $OUTPUT, '>', $output_file
or die "Could not open output file $output_file: $!\n"; or die "Could not open output file $output_file: $!\n";
# Print header of output file. # Print header of output file.

6
src/common/unicode/generate-unicode_norm_table.pl
View File

@@ -16,7 +16,7 @@ my $FH;
# Read list of codes that should be excluded from re-composition. # Read list of codes that should be excluded from re-composition.
my @composition_exclusion_codes = (); my @composition_exclusion_codes = ();
open($FH, "CompositionExclusions.txt") open($FH, '<', "CompositionExclusions.txt")
or die "Could not open CompositionExclusions.txt: $!."; or die "Could not open CompositionExclusions.txt: $!.";
while (my $line = <$FH>) while (my $line = <$FH>)
{ {
@@ -32,7 +32,7 @@ close $FH;
# and character decomposition mapping # and character decomposition mapping
my @characters = (); my @characters = ();
my %character_hash = (); my %character_hash = ();
open($FH, "UnicodeData.txt") or die "Could not open UnicodeData.txt: $!."; open($FH, '<', "UnicodeData.txt") or die "Could not open UnicodeData.txt: $!.";
while (my $line = <$FH>) while (my $line = <$FH>)
{ {
# Split the line wanted and get the fields needed: # Split the line wanted and get the fields needed:
@@ -63,7 +63,7 @@ close $FH;
my $num_characters = scalar @characters; my $num_characters = scalar @characters;
# Start writing out the output file # Start writing out the output file
open my $OUTPUT, "> $output_file" open my $OUTPUT, '>', $output_file
or die "Could not open output file $output_file: $!\n"; or die "Could not open output file $output_file: $!\n";
print $OUTPUT <<HEADER; print $OUTPUT <<HEADER;