Encode::JP::Mobile がどうしてもテストでコケる件。

(´･ω･`)

[supi@star Encode-JP-Mobile]$ make test
PERL_DL_NONLAZY=1 /usr/local/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/airh-jis...........................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/airh-jis...........................1/31 # Looks like you planned 31 tests but ran 1 extra.
t/airh-jis........................... Dubious, test returned 255 (wstat 65280, 0xff00)
 All 31 subtests passed 
t/author-pod.........................ok     
t/author-ucmlint.....................skipped: ucmlint is not in your PATH
t/character..........................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/character..........................ok     
t/charnames..........................1/35 
#   Failed test 'check warn num'
#   at t/charnames.t line 54.
#          got: '9'
#     expected: '2'

#   Failed test 'wanrings when unkown character'
#   at t/charnames.t line 55.
#                   'Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
# '
#     doesn't match '(?-xism:Unknown charname 'UNKNOWN CHARACTER')'

#   Failed test 'warning when unkown character'
#   at t/charnames.t line 56.
#                   'Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
# '
#     doesn't match '(?-xism:unknown charnames: Foo)'
# Looks like you failed 3 tests of 35.
t/charnames.......................... Dubious, test returned 3 (wstat 768, 0x300)
 Failed 3/35 subtests 
t/convert-bruteforce.................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/convert-bruteforce.................ok      
t/convert-sjis-fallback-leave_src....Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/convert-sjis-fallback-leave_src....ok     
t/docomo-bruteforce..................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/docomo-bruteforce..................ok         
t/emoji_convert_sjis.................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/emoji_convert_sjis.................ok    
t/emoji_convert_utf8.................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/emoji_convert_utf8.................ok     
t/emoji_convert_utf8_fb..............Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/emoji_convert_utf8_fb..............ok   
t/fallback...........................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/fallback...........................ok   
t/fullwidth_tilde....................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/fullwidth_tilde....................ok     
t/kddi-bruteforce....................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/kddi-bruteforce....................ok           
t/kddi-jis...........................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/kddi-jis...........................ok     
t/kddi-trans.........................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/kddi-trans.........................ok   
t/mime_name..........................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/mime_name..........................ok     
t/Mobile.............................1/90 Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/Mobile.............................ok     
t/props-bruteforce-yaml..............Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/props-bruteforce-yaml..............ok      
t/props-bruteforce...................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/props-bruteforce...................ok      
t/props..............................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/props..............................ok     
t/softbank-bruteforce................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/softbank-bruteforce................ok         
t/softbank-manychars.................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/softbank-manychars.................ok   
t/vodafone-fallback..................Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.
t/vodafone-fallback..................ok   

Test Summary Report
-------------------
t/airh-jis                       (Wstat: 65280 Tests: 32 Failed: 1)
  Failed test:  32
  Non-zero exit status: 255
  Parse errors: Bad plan.  You planned 31 tests but ran 32.
t/charnames                      (Wstat: 768 Tests: 35 Failed: 3)
  Failed tests:  22-24
  Non-zero exit status: 3
Files=24, Tests=27833, 31 wallclock secs ( 8.80 usr  0.53 sys + 21.44 cusr  0.95 csys = 31.72 CPU)
Result: FAIL
Failed 2/24 test programs. 4/27833 subtests failed.
make: *** [test_dynamic] エラー 255

/usr/local/lib/perl5/5.10.0/i686-linux-thread-multi/File/Spec/Unix.pm line 83.

の警告が頻発してるのも気になるが・・・。

ちなみに83行目付近。

=item catdir()                                                                                      
                                                                                                    
Concatenate two or more directory names to form a complete path ending                              
with a directory. But remove the trailing slash from the resulting                                  
string, because it doesn't look good, isn't necessary and confuses                                  
OS2. Of course, if this is the root directory, don't cut off the                                    
trailing slash :-)                                                                                  
                                                                                                    
=cut                                                                                                

sub catdir {
    my $self = shift;

    $self->canonpath(join('/', @_, '')); # '' because need a trailing '/'                           
}

うーん。。。