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";
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>) {