briandfoy / PerlPowerTools / 10305509361

63%

push

github

units: fail if custom unittab file doesn't open (#707)

* units: fail if custom unittab file doesn't open

* The old code unhelpfully bypassed opening the file specified by -f FILE option if it did not exist
* Make read_unittab() handle 3 cases...
* case1: implicit unittab ($file is undefined; read definitions in __DATA__)
* case2: $file is a directory (ignore it to match OpenBSD; read __DATA__)
* case3: otherwise... open the file and terminate the program if it couldn't open
* While here add defined() checks after prompting for input; this silences warnings seen when terminating program with ^D

* I found this when testing against the OpenBSD version

* missing return statement in prev commit

7 of 14 new or added lines in 1 file covered. (50.0%)

350 of 479 relevant lines covered (73.07%)

4736.89 hits per line