Jcodeのjfold()ですが、perl -wで実行すると Use of uninitialized valueが出るという報告がありました。以下のpatchで直ります。次のversionにて反映させます。
===================================================================
RCS file: Jcode.pm,v
retrieving revision 0.87
diff -u -r0.87 Jcode.pm
--- Jcode.pm    2004/07/24 02:58:27     0.87
+++ Jcode.pm    2004/11/17 17:26:28
@@ -210,7 +210,7 @@
     $bpl ||= 72;
     $nl  ||= "\n";
     my $r_str = $self->[0];
-    my (@lines, $len, $i);
+    my @lines = (); my $len = 0; my $i = 0;
     while ($$r_str =~
           m/($RE{EUC_0212}|$RE{EUC_KANA}|$RE{EUC_C}|[\x00-\xff])/sgo)
     {