Hello,

I am trying to create a simple Term::ReadLine based shell and I was wondering if there is any way to dynamically reload a file which has been required in the script(which might be cool for debugging...).

#!/usr/bin/perl -w

require 'spamassassin.pm';

use Term::ReadLine;
use Data::Dumper;

my %subs = ( );

$term = new Term::ReadLine 'prep test';

my $attribs = $term->Attribs;
#    auto completion is working... 
$attribs->{completion_entry_function} = $attribs->{list_completion_fun
+ction};
$attribs->{completion_word} = [keys %subs,'print','n','Dumper','shp'];
+ 
my $OUT = $term->OUT || \*STDOUT;

while( defined($_ = $term->readline("prep test shell >")) ) {
    last if /^\s*qu?i?t?$/i; # "quit" 
    my $res = eval($_);
    warn $@ if $@;
}
[download]

Here, it would be nice to be able to reload the spamassassin.pm file, if, per example I've made some changes to it, but I don't want to quit the shell...

Thanks in advance.