|
Server : Apache/2.2.22 (Unix) mod_ssl/2.2.22 OpenSSL/1.0.0-fips mod_auth_passthrough/2.1 mod_bwlimited/1.4 System : Linux server.jackjohnson.com 2.6.32-279.5.2.el6.x86_64 #1 SMP Fri Aug 24 01:07:11 UTC 2012 x86_64 User : jackjohn ( 502) PHP Version : 5.3.17 Disable Function : NONE Directory : /installd/perl588installer/perl-5.8.8/t/uni/ |
Upload File : |
BEGIN {
chdir 't' if -d 't';
@INC = qw(../lib uni .);
require "case.pl";
}
casetest("Title", \%utf8::ToSpecTitle, sub { ucfirst $_[0] },
sub { my $a = ""; ucfirst ($_[0] . $a) });