pgindent: add Perl comment

pull/6/head
Bruce Momjian 12 years ago
parent cad1e022b2
commit 290d2cb500
  1. 2
      src/tools/pgindent/pgindent

@ -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))

Loading…
Cancel
Save