Commitfb3ad78

committed

Improve style of generate_history.pl Perl script.

1 parent6713227 commitfb3ad78Copy full SHA for fb3ad78

File tree

-6

lines changed

-6

lines changed

Lines changed: 6 additions & 6 deletions

Original file line number	Diff line number	Diff line change
`@@ -13,10 +13,10 @@`
`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,11 +26,11 @@`
`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>) {`

Comments

(0)