if ($arg =~ /^--html-title(=(.+))?$/) {
shift @ARGV;
- if ($2 eq '') {
+ if (!defined $2 || $2 eq '') {
if (!@ARGV) {
DieDiag("'--html-title' option requires a string.\n");
}
shift @ARGV;
my $cc;
- if ($2 eq "") {
+ if (!defined $2 || $2 eq "") {
if (!@ARGV) {
DieDiag("'--use-cc' option requires a compiler executable name.\n");
}
if ($arg =~ /^--use-c\+\+(=(.+))?$/) {
shift @ARGV;
- if ($2 eq "") {
+ if (!defined $2 || $2 eq "") {
if (!@ARGV) {
DieDiag("'--use-c++' option requires a compiler executable name.\n");
}