|
13 | 13 |
|
14 | 14 | use strict; |
15 | 15 |
|
16 | | -my($srcdir) =shift; |
17 | | -defined($srcdir) ||die"$0: missing required argument: srcdir\n"; |
18 | | -my($infile) =shift; |
19 | | -defined($infile) ||die"$0: missing required argument: inputfile\n"; |
| 16 | +my$srcdir =shift; |
| 17 | +die"$0: missing required argument: srcdir\n"if !defined($srcdir); |
| 18 | +my$infile =shift; |
| 19 | +die"$0: missing required argument: inputfile\n"if !defined($infile); |
20 | 20 |
|
21 | 21 | # Emit DOCTYPE header so that the output is a self-contained SGML document |
22 | 22 | print"<!DOCTYPE appendix PUBLIC\"-//OASIS//DTD DocBook V4.2//EN\">\n"; |
|
26 | 26 | exit 0; |
27 | 27 |
|
28 | 28 | subprocess_file { |
29 | | -my($filename) =@_; |
| 29 | +my$filename =shift; |
30 | 30 |
|
31 | 31 | local *FILE;# need a local filehandle so we can recurse |
32 | 32 |
|
33 | | -my($f) =$srcdir .'/' .$filename; |
| 33 | +my$f =$srcdir .'/' .$filename; |
34 | 34 | open(FILE,$f) ||die"could not read$f:$!\n"; |
35 | 35 |
|
36 | 36 | while (<FILE>) { |
|