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

pgindent: add Perl comment

Browse Source
This commit is contained in:
Bruce Momjian 2014-01-31 14:46:00 -05:00
parent cad1e022b2
commit 290d2cb500
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/tools/pgindent/pgindent
View File

@ -126,6 +126,8 @@ sub load_typedefs
|| die "cannot open typedefs file \"$typedefs_file\": $!\n"; || die "cannot open typedefs file \"$typedefs_file\": $!\n";
my @typedefs = <$typedefs_fh>; my @typedefs = <$typedefs_fh>;
close($typedefs_fh); close($typedefs_fh);
# add command-line-supplied typedefs?
if (defined($typedef_str)) if (defined($typedef_str))
{ {
foreach my $typedef (split(m/[, \t\n]+/, $typedef_str)) foreach my $typedef (split(m/[, \t\n]+/, $typedef_str))