$self->state('prompt');
}
} else {
- @ans = run_cmd($self, $cmdline) if length $cmdline;
+ @ans = run_cmd($self, $cmdline); # if length $cmdline;
if ($self->{pagelth} && @ans > $self->{pagelth}) {
my $i;
return (1, "Syserr: Eval err $errstr on stored func $self->{func}");
}
} else {
+
+ return () if length $cmdline == 0;
# strip out //
$cmdline =~ s|//|/|og;
return undef;
}
- if(defined $Cache{$package}->{mtime} && $Cache{$package}->{mtime } <= $mtime) {
+ if(defined $Cache{$package}{mtime} && $Cache{$package}{mtime } <= $mtime) {
#we have compiled this subroutine already,
#it has not been updated on disk, nothing left to do
#print STDERR "already compiled $package->handler\n";
;
} else {
+ delete_package($package) if defined $Cache{$package}{mtime};
+
my $fh = new FileHandle;
if (!open $fh, $filename) {
$errstr = "Syserr: can't open '$filename' $!";
delete_package($package);
} else {
#cache it unless we're cleaning out each time
- $Cache{$package}->{'mtime'} = $mtime;
+ $Cache{$package}{'mtime'} = $mtime;
}
}