$line = "\U\Q$line";
}
- if ($self->{_nospawn}) {
+ if ($self->{_nospawn} || $main::is_win == 1) {
@out = generate($self, $line);
} else {
@out = $self->spawn_cmd("show/registered $line", sub { return (generate($self, $line)); });
}
my @l;
+ push @out, "Registration is " . ($main::reqreg ? "Required" : "NOT Required");
foreach my $call (@val) {
if (@l >= 5) {
push @out, sprintf "%-14s %-14s %-14s %-14s %-14s", @l;