Use `name` field for -info flag

This commit is contained in:
Pragmatic Software 2015-04-09 11:03:04 -07:00
parent 38d109059a
commit 1122f7ede6
1 changed files with 2 additions and 1 deletions

View File

@ -390,7 +390,8 @@ sub process_standard_options {
}
$cmdline =~ s/\$sourcefile/$self->{sourcefile}/g;
$cmdline =~ s/\$execfile/$self->{execfile}/g;
print "$self->{nick}: $self->{lang} cmdline: $cmdline\n";
my $name = exists $self->{name} ? $self->{name} : $self->{lang};
print "$self->{nick}: $name cmdline: $cmdline\n";
exit;
}