diff options
| author | Bruce Momjian <bruce@momjian.us> | 2011-05-05 12:48:48 -0400 |
|---|---|---|
| committer | Bruce Momjian <bruce@momjian.us> | 2011-05-05 12:49:23 -0400 |
| commit | fb3ad7895ece674fc5298df754253f70cda6a02e (patch) | |
| tree | 0537f02577df26a9021ef9752755eec3d46d5608 | |
| parent | 671322751add80f3368cd9ef17134fb9f73cf747 (diff) | |
| download | postgresql-fb3ad7895ece674fc5298df754253f70cda6a02e.tar.gz postgresql-fb3ad7895ece674fc5298df754253f70cda6a02e.zip | |
Improve style of generate_history.pl Perl script.
| -rw-r--r-- | doc/src/sgml/generate_history.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/doc/src/sgml/generate_history.pl b/doc/src/sgml/generate_history.pl index 2b81569b9ac..a6c0bd77c23 100644 --- a/doc/src/sgml/generate_history.pl +++ b/doc/src/sgml/generate_history.pl @@ -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>) { |