Make lc/uc/lcfirst/ucfirst warn when passed undef.
[p5sagit/p5-mst-13.2.git] / t / lib / source_tests / source
CommitLineData
b965d173 1#!/usr/bin/perl -wT
2
5e2a19fc 3BEGIN {
4 if ( $ENV{PERL_CORE} ) {
5 chdir 't';
6 @INC = ( '../lib', 'lib' );
7 }
8 else {
9 unshift @INC, 't/lib';
10 }
11}
12
b965d173 13use Test::More tests => 1;
14
15ok 1;