Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
Postgres FD Implementation
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Abuhujair Javed
Postgres FD Implementation
Commits
0e8286d3
Commit
0e8286d3
authored
7 years ago
by
Peter Eisentraut
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix perlcritic warnings
parent
bf2a691e
REL_14_STABLE
No related merge requests found
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
5 deletions
+5
-5
src/common/unicode/generate-norm_test_table.pl
src/common/unicode/generate-norm_test_table.pl
+2
-2
src/common/unicode/generate-unicode_norm_table.pl
src/common/unicode/generate-unicode_norm_table.pl
+3
-3
No files found.
src/common/unicode/generate-norm_test_table.pl
View file @
0e8286d3
...
...
@@ -18,9 +18,9 @@ my $output_file = $ARGV[1];
my
$output_base
=
basename
(
$output_file
);
# 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
: $!
";
open
my
$OUTPUT
,
"
>
$output_file
"
open
my
$OUTPUT
,
'
>
',
$output_file
or
die
"
Could not open output file
$output_file
: $!
\n
";
# Print header of output file.
...
...
This diff is collapsed.
Click to expand it.
src/common/unicode/generate-unicode_norm_table.pl
View file @
0e8286d3
...
...
@@ -16,7 +16,7 @@ my $FH;
# Read list of codes that should be excluded from re-composition.
my
@composition_exclusion_codes
=
();
open
(
$FH
,
"
CompositionExclusions.txt
")
open
(
$FH
,
'
<
',
"
CompositionExclusions.txt
")
or
die
"
Could not open CompositionExclusions.txt: $!.
";
while
(
my
$line
=
<
$FH
>
)
{
...
...
@@ -32,7 +32,7 @@ close $FH;
# and character decomposition mapping
my
@characters
=
();
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
>
)
{
# Split the line wanted and get the fields needed:
...
...
@@ -63,7 +63,7 @@ close $FH;
my
$num_characters
=
scalar
@characters
;
# 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
";
print
$OUTPUT
<<HEADER;
...
...
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment