patch for jsan shell

[koyachi]

Hi. I have perl background, and interested in jsan shell. But in perl
5.8.8 and JSAN 0.07, it's not work well. So I patched to JSAN.pm as
below:

===============================================================
$ 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
-
-
===============================================================
In this patch, I confirmed installing some JSAN module(Test.Simple,
Class, CSS.Change...) from jsan shell.

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.
===============================================================

Is this problem only in my environment? Here is my test environment:

mac os 10.4.6
perl 5.8.8
JSAN.pm 0.07

--
koyachi

[David Wheeler]

On Jun 14, 2006, at 05:52, koyachi wrote:

> Hi. I have perl background, and interested in jsan shell. But in perl
> 5.8.8 and JSAN 0.07, it's not work well. So I patched to JSAN.pm as
> below:

Patch applied, thanks koyach!

Best,

David