| Subject: | Term::ReadLine require 2 or 4 params, so error caused in default jsan shell |
http://groups.google.com/group/jsan/msg/4a25827c5925a49d
Term::ReadLine require 2 or 4 params, so error caused in default jsan
shell, like below:
===============================================================
method new called with wrong number of arguments at
/usr/local/lib/perl5/5.8.8/Term/ReadLine.pm line 243.
===============================================================
koyachi made a patch:
$ diff -u /usr/local/lib/perl5/site_perl/5.8.8/JSAN.pm
/Users/tkoyachi/lib/perl/JSAN.pm
--- /usr/local/lib/perl5/site_perl/5.8.8/JSAN.pm 2005-07-19
14:07:19.000000000 +0900
+++ /Users/tkoyachi/lib/perl/JSAN.pm 2006-06-14 20:21:29.000000000
+0900
@@ -37,7 +37,7 @@
sub run {
my ($class) = @_;
print $class->motd();
- my $term = Term::ReadLine->new;
+ my $term = Term::ReadLine->new( 'jsan' );
while (defined(my $cmd_line = $term->readline($PROMPT))) {
chomp($cmd_line);
$cmd_line =~ s/^\s+//;
@@ -124,5 +124,3 @@
under the same terms as Perl itself.
=cut
-
-