rdelaage
/
postgresql
mirror of https://git.postgresql.org/git/postgresql.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Improve style of generate_history.pl Perl script.

This commit is contained in:
Bruce Momjian 2011-05-05 12:48:48 -04:00
parent 671322751a
commit fb3ad7895e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
doc/src/sgml/generate_history.pl
View File

@ -13,10 +13,10 @@
use strict;
my($srcdir) = shift;
defined($srcdir) || die "$0: missing required argument: srcdir\n";
my($infile) = shift;
defined($infile) || die "$0: missing required argument: inputfile\n";
my $srcdir = shift;
die "$0: missing required argument: srcdir\n" if !defined($srcdir);
my $infile = shift;
die "$0: missing required argument: inputfile\n" if !defined($infile);
# Emit DOCTYPE header so that the output is a self-contained SGML document
print "<!DOCTYPE appendix PUBLIC \"-//OASIS//DTD DocBook V4.2//EN\">\n";
@ -26,11 +26,11 @@ process_file($infile);
exit 0;
sub process_file {
my($filename) = @_;
my $filename = shift;
local *FILE; # need a local filehandle so we can recurse
my($f) = $srcdir . '/' . $filename;
my $f = $srcdir . '/' . $filename;
open(FILE, $f) || die "could not read $f: $!\n";
while (<FILE>) {