Commit0e8286d

committed

Fix perlcritic warnings

1 parentbf2a691 commit0e8286dCopy full SHA for 0e8286d

File tree

-5

lines changed

-5

lines changed

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -18,9 +18,9 @@`
`18`	`18`	`my$output_base = basename($output_file);`
`19`	`19`
`20`	`20`	`# Open the input and output files`
`21`		`-openmy$INPUT,$input_file`
	`21`	`+openmy$INPUT,'<',$input_file`
`22`	`22`	`ordie"Could not open input file$input_file:$!";`
`23`		`-openmy$OUTPUT,">$output_file"`
	`23`	`+openmy$OUTPUT,'>',$output_file`
`24`	`24`	`ordie"Could not open output file$output_file:$!\n";`
`25`	`25`
`26`	`26`	`# Print header of output file.`

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -16,7 +16,7 @@`
`16`	`16`
`17`	`17`	`# Read list of codes that should be excluded from re-composition.`
`18`	`18`	`my@composition_exclusion_codes = ();`
`19`		`-open($FH,"CompositionExclusions.txt")`
	`19`	`+open($FH,'<',"CompositionExclusions.txt")`
`20`	`20`	`ordie"Could not open CompositionExclusions.txt:$!.";`
`21`	`21`	`while (my$line = <$FH>)`
`22`	`22`	`{`
`@@ -32,7 +32,7 @@`
`32`	`32`	`# and character decomposition mapping`
`33`	`33`	`my@characters = ();`
`34`	`34`	`my%character_hash = ();`
`35`		`-open($FH,"UnicodeData.txt")ordie"Could not open UnicodeData.txt:$!.";`
	`35`	`+open($FH,'<',"UnicodeData.txt")ordie"Could not open UnicodeData.txt:$!.";`
`36`	`36`	`while (my$line = <$FH>)`
`37`	`37`	`{`
`38`	`38`	`# Split the line wanted and get the fields needed:`
`@@ -63,7 +63,7 @@`
`63`	`63`	`my$num_characters =scalar@characters;`
`64`	`64`
`65`	`65`	`# Start writing out the output file`
`66`		`-openmy$OUTPUT,">$output_file"`
	`66`	`+openmy$OUTPUT,'>',$output_file`
`67`	`67`	`ordie"Could not open output file$output_file:$!\n";`
`68`	`68`
`69`	`69`	`print$OUTPUT<<HEADER;`

Comments

(0)