Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
App	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Archive	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
Attribute	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
B	[ DIR ]	drwxr-xr-x	2016-10-10 17:38
CGI	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
CPAN	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
Carp	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
Class	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
Compress	[ DIR ]	drwxr-xr-x	2016-10-10 17:38
Config	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
DBM_Filter	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
Data	[ DIR ]	drwxr-xr-x	2016-10-10 17:38
Devel	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
Digest	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
Encode	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
Exporter	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
ExtUtils	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
File	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
Filter	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
Getopt	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
HTTP	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
Hash	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
I18N	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
IO	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
IPC	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
JSON	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
List	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
Locale	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
MIME	[ DIR ]	drwxr-xr-x	2016-10-10 17:40
Math	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Memoize	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Module	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Net	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Package	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Params	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Parse	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Perl	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
PerlIO	[ DIR ]	drwxr-xr-x	2016-10-10 17:40
Pod	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Scalar	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
Search	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Sys	[ DIR ]	drwxr-xr-x	2016-10-10 17:40
TAP	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Term	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Test	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Text	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Thread	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
Tie	[ DIR ]	drwxr-xr-x	2016-10-10 17:40
Time	[ DIR ]	drwxr-xr-x	2016-10-10 17:40
Unicode	[ DIR ]	drwxr-xr-x	2016-10-10 17:40
User	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
XS	[ DIR ]	drwxr-xr-x	2016-10-10 17:41
auto	[ DIR ]	drwxr-xr-x	2016-10-10 18:16
autodie	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
encoding	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
feature	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
inc	[ DIR ]	drwxr-xr-x	2016-10-10 17:37
overload	[ DIR ]	drwxr-xr-x	2016-10-10 18:13
perl5db	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
threads	[ DIR ]	drwxr-xr-x	2016-10-10 17:40
unicore	[ DIR ]	drwxr-xr-x	2016-10-10 18:53
version	[ DIR ]	drwxr-xr-x	2016-10-10 17:38
warnings	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
.exists	0 B	-rw-r--r--	2016-10-10 18:16
AnyDBM_File.pm	2.56 KB	-r--r--r--	2014-12-27 11:48
AnyDBM_File.t	3.36 KB	-r--r--r--	2014-12-27 11:48
AutoLoader.pm	15.43 KB	-r--r--r--	2014-12-27 11:48
AutoSplit.pm	19.18 KB	-r--r--r--	2014-12-27 11:48
B.pm	28.07 KB	-r--r--r--	2014-12-27 11:49
Benchmark.pm	29.22 KB	-r--r--r--	2014-12-27 11:49
Benchmark.t	21.04 KB	-r--r--r--	2014-12-27 11:48
CGI.pm	255.23 KB	-r--r--r--	2014-12-27 11:49
CORE.pod	3.19 KB	-r--r--r--	2014-12-27 11:48
CPAN.pm	134.45 KB	-r--r--r--	2014-12-27 11:48
Carp.pm	27.8 KB	-r--r--r--	2014-12-27 11:49
Config.pm	3.18 KB	-rw-r--r--	2016-10-10 17:36
Config.pod	229.34 KB	-rw-r--r--	2016-10-10 17:36
Config.t	8.26 KB	-r--r--r--	2014-12-27 11:48
Config_git.pl	409 B	-rw-r--r--	2016-10-10 17:36
Config_heavy.pl	40.41 KB	-rw-r--r--	2016-10-10 17:36
Cwd.pm	21.95 KB	-r--r--r--	2015-01-10 12:06
DB.pm	18.5 KB	-r--r--r--	2014-12-27 11:48
DB.t	16.28 KB	-r--r--r--	2014-12-27 11:48
DBM_Filter.pm	14.05 KB	-r--r--r--	2014-12-27 11:48
DB_File.pm	62.24 KB	-r--r--r--	2016-10-10 17:38
Digest.pm	10.35 KB	-r--r--r--	2014-12-27 11:48
DirHandle.pm	1.52 KB	-r--r--r--	2014-12-27 11:48
DirHandle.t	930 B	-r--r--r--	2014-12-27 11:48
Dumpvalue.pm	16.5 KB	-r--r--r--	2014-12-27 11:48
DynaLoader.pm	24.99 KB	-r--r--r--	2016-10-10 17:38
Encode.pm	32.44 KB	-r--r--r--	2014-12-27 11:49
English.pm	4.64 KB	-r--r--r--	2014-12-27 11:48
English.t	4.11 KB	-r--r--r--	2014-12-27 11:48
Env.pm	5.39 KB	-r--r--r--	2014-12-27 11:48
Errno.pm	6.33 KB	-r--r--r--	2016-10-10 17:36
Exporter.pm	18.31 KB	-r--r--r--	2014-12-27 11:49
Fatal.pm	59.38 KB	-r--r--r--	2014-12-27 11:49
Fcntl.pm	3.83 KB	-r--r--r--	2014-12-27 11:49
FileCache.pm	5.44 KB	-r--r--r--	2014-12-27 11:48
FileHandle.pm	6.62 KB	-r--r--r--	2014-12-27 11:48
FileHandle.t	2.48 KB	-r--r--r--	2014-12-27 11:48
FindBin.pm	4.45 KB	-r--r--r--	2014-12-27 11:48
FindBin.t	338 B	-r--r--r--	2014-12-27 11:48
GDBM_File.pm	1.51 KB	-r--r--r--	2014-12-27 11:48
IO.pm	1.36 KB	-r--r--r--	2014-12-27 11:49
Internals.t	5.04 KB	-r--r--r--	2014-12-27 11:48
Memoize.pm	35.28 KB	-r--r--r--	2014-12-27 11:48
NDBM_File.pm	2.44 KB	-r--r--r--	2014-12-27 11:49
NEXT.pm	18.05 KB	-r--r--r--	2014-12-27 11:48
O.pm	4.11 KB	-r--r--r--	2014-12-27 11:48
Opcode.pm	15.33 KB	-r--r--r--	2014-12-27 11:49
POSIX.pm	16.44 KB	-r--r--r--	2014-12-27 11:49
POSIX.pod	65.45 KB	-r--r--r--	2014-12-27 11:49
PerlIO.pm	10.21 KB	-r--r--r--	2014-12-27 11:48
SDBM_File.pm	3.46 KB	-r--r--r--	2014-12-27 11:49
Safe.pm	24.27 KB	-r--r--r--	2014-12-27 11:49
SelectSaver.pm	1.05 KB	-r--r--r--	2014-12-27 11:48
SelectSaver.t	365 B	-r--r--r--	2014-12-27 11:48
SelfLoader.pm	16.94 KB	-r--r--r--	2014-12-27 11:49
Socket.pm	35.47 KB	-r--r--r--	2014-12-27 11:49
Storable.pm	42.13 KB	-r--r--r--	2015-01-15 22:12
Symbol.pm	4.68 KB	-r--r--r--	2014-12-27 11:48
Symbol.t	2.52 KB	-r--r--r--	2014-12-27 11:48
Test.pm	28.12 KB	-r--r--r--	2014-12-27 11:48
Thread.pm	8.09 KB	-r--r--r--	2014-12-27 11:48
Thread.t	1.59 KB	-r--r--r--	2014-12-27 11:48
UNIVERSAL.pm	6.97 KB	-r--r--r--	2014-12-27 11:49
XSLoader.pm	9.99 KB	-r--r--r--	2016-10-10 17:38
_charnames.pm	31.63 KB	-r--r--r--	2014-12-27 11:49
arybase.pm	2.75 KB	-r--r--r--	2014-12-27 11:49
attributes.pm	15.95 KB	-r--r--r--	2014-12-27 12:30
autodie.pm	11.9 KB	-r--r--r--	2014-12-27 11:49
autouse.pm	4.14 KB	-r--r--r--	2014-12-27 11:48
base.pm	7.21 KB	-r--r--r--	2014-12-27 11:48
bigint.pm	18.29 KB	-r--r--r--	2014-12-27 11:49
bignum.pm	17.7 KB	-r--r--r--	2014-12-27 11:49
bigrat.pm	13.58 KB	-r--r--r--	2014-12-27 11:49
blib.pm	2.04 KB	-r--r--r--	2014-12-27 11:48
blib.t	1.81 KB	-r--r--r--	2014-12-27 11:48
buildcustomize.pl	1.1 KB	-rw-r--r--	2016-10-10 17:36
bytes.pm	2.96 KB	-r--r--r--	2014-12-27 11:48
bytes.t	2.78 KB	-r--r--r--	2014-12-27 11:48
bytes_heavy.pl	758 B	-r--r--r--	2014-12-27 11:48
charnames.pm	20.39 KB	-r--r--r--	2014-12-27 11:49
charnames.t	372.58 KB	-r--r--r--	2014-12-27 11:49
constant.pm	13.99 KB	-r--r--r--	2014-12-27 11:49
dbm_filter_util.pl	1.83 KB	-r--r--r--	2014-12-27 11:48
deprecate.pm	3.01 KB	-r--r--r--	2014-12-27 11:48
diagnostics.pm	18.26 KB	-r--r--r--	2014-12-27 11:48
diagnostics.t	7.1 KB	-r--r--r--	2014-12-27 11:49
dumpvar.pl	15.24 KB	-r--r--r--	2014-12-27 11:48
dumpvar.t	5.81 KB	-r--r--r--	2014-12-27 11:48
encoding.pm	20.04 KB	-r--r--r--	2014-12-27 11:49
experimental.pm	3.88 KB	-r--r--r--	2014-12-27 11:49
feature.pm	13.46 KB	-rw-r--r--	2014-12-27 12:46
feature.t	78 B	-r--r--r--	2014-12-27 11:48
fields.pm	9.24 KB	-r--r--r--	2014-12-27 11:48
filetest.pm	3.91 KB	-r--r--r--	2014-12-27 11:48
filetest.t	3 KB	-r--r--r--	2014-12-27 11:48
h2ph.t	1.58 KB	-r--r--r--	2014-12-27 11:48
h2xs.t	7.64 KB	-r--r--r--	2014-12-27 11:48
if.pm	2.63 KB	-r--r--r--	2014-12-27 11:48
integer.pm	3.18 KB	-r--r--r--	2014-12-27 11:48
integer.t	1.32 KB	-r--r--r--	2014-12-27 11:48
less.pm	3.13 KB	-r--r--r--	2014-12-27 11:48
less.t	901 B	-r--r--r--	2014-12-27 11:48
lib.pm	5.87 KB	-r--r--r--	2016-10-10 17:37
locale.pm	2.13 KB	-r--r--r--	2014-12-27 11:49
locale.t	72.86 KB	-r--r--r--	2014-12-27 11:49
mro.pm	9.86 KB	-r--r--r--	2014-12-27 11:49
open.pm	7.83 KB	-r--r--r--	2014-12-27 11:48
open.t	6.4 KB	-r--r--r--	2014-12-27 11:48
ops.pm	997 B	-r--r--r--	2014-12-27 11:48
overload.pm	51.41 KB	-r--r--r--	2014-12-27 11:49
overload.t	71.98 KB	-r--r--r--	2014-12-27 11:49
overload64.t	8.33 KB	-r--r--r--	2014-12-27 11:48
overloading.pm	1.77 KB	-r--r--r--	2014-12-27 11:48
overloading.t	3.25 KB	-r--r--r--	2014-12-27 11:48
parent.pm	2.83 KB	-r--r--r--	2014-12-27 11:48
perl5db.pl	307.01 KB	-r--r--r--	2014-12-27 11:49
perl5db.t	56.06 KB	-r--r--r--	2014-12-27 11:49
perldoc.pod	8.69 KB	-r--r--r--	2014-12-27 11:48
perlfaq.pm	94 B	-r--r--r--	2014-12-27 11:49
perlfaq.pod	22.18 KB	-r--r--r--	2014-12-27 11:48
perlfaq1.pod	14.36 KB	-r--r--r--	2014-12-27 11:49
perlfaq2.pod	9.24 KB	-r--r--r--	2014-12-27 11:49
perlfaq3.pod	37.67 KB	-r--r--r--	2014-12-27 11:48
perlfaq4.pod	87.39 KB	-r--r--r--	2014-12-27 11:49
perlfaq5.pod	54.11 KB	-r--r--r--	2014-12-27 11:49
perlfaq6.pod	38.66 KB	-r--r--r--	2014-12-27 11:49
perlfaq7.pod	36.98 KB	-r--r--r--	2014-12-27 11:49
perlfaq8.pod	48.9 KB	-r--r--r--	2014-12-27 11:48
perlfaq9.pod	14.7 KB	-r--r--r--	2014-12-27 11:48
perlglossary.pod	133.98 KB	-r--r--r--	2014-12-27 11:48
perlxs.pod	76.6 KB	-r--r--r--	2014-12-27 11:49
perlxstut.pod	48.91 KB	-r--r--r--	2014-12-27 11:48
perlxstypemap.pod	23.02 KB	-r--r--r--	2014-12-27 11:49
re.pm	17.55 KB	-r--r--r--	2014-12-27 11:49
sigtrap.pm	7.44 KB	-r--r--r--	2014-12-27 11:48
sigtrap.t	2.65 KB	-r--r--r--	2014-12-27 11:48
sort.pm	5.94 KB	-r--r--r--	2014-12-27 11:48
sort.t	5.54 KB	-r--r--r--	2014-12-27 11:49
strict.pm	3.83 KB	-r--r--r--	2014-12-27 11:49
strict.t	439 B	-r--r--r--	2014-12-27 11:49
subs.pm	848 B	-r--r--r--	2014-12-27 11:48
subs.t	79 B	-r--r--r--	2014-12-27 11:48
threads.pm	34.93 KB	-r--r--r--	2014-12-27 11:49
utf8.pm	7.64 KB	-r--r--r--	2014-12-27 11:49
utf8.t	21.67 KB	-r--r--r--	2014-12-27 11:48
utf8_heavy.pl	31 KB	-r--r--r--	2014-12-27 11:49
vars.pm	2.36 KB	-r--r--r--	2014-12-27 11:48
vars.t	2.68 KB	-r--r--r--	2014-12-27 11:48
vars_carp.t	246 B	-r--r--r--	2014-12-27 11:48
version.pm	1.58 KB	-r--r--r--	2014-12-27 11:48
version.pod	9.62 KB	-r--r--r--	2014-12-27 11:48
vmsish.pm	4.21 KB	-r--r--r--	2014-12-27 11:48
vmsish.t	7.21 KB	-r--r--r--	2014-12-27 11:48
warnings.pm	38.5 KB	-rw-r--r--	2014-12-27 11:49
warnings.t	120 B	-r--r--r--	2014-12-27 11:48

Rename

#!./perl -i.inplace
# note the extra switch, for the test below

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

use Test::More tests => 58;

use English qw( -no_match_vars ) ;
use Config;
use Errno;

is( $PID, $$, '$PID' );

$_ = 1;
is( $ARG, $_, '$ARG' );

sub foo {
	is($ARG[0], $_[0], '@ARG' );
}
foo(1);

"abc" =~ /b/;

ok( !$PREMATCH, '$PREMATCH undefined' );
ok( !$MATCH, '$MATCH undefined' );
ok( !$POSTMATCH, '$POSTMATCH undefined' );

$OFS = " ";
$ORS = "\n";

{
	local(*IN, *OUT);
	if ($^O ne 'dos') {
	    pipe(IN, OUT);
	} else {
	    open(OUT, ">en.tmp");
	}
	select(OUT);
	$| = 1;
	print 'ok', '7';

# since $| is 1, this should be true
	ok( $OUTPUT_AUTOFLUSH, '$OUTPUT_AUTOFLUSH should be true' );

my $close = close OUT;
	ok( !($close) == $CHILD_ERROR, '$CHILD_ERROR should be false' );

open(IN, "<en.tmp") if ($^O eq 'dos');
	my $foo = <IN>;
	like( $foo, qr/ok 7/, '$OFS' );

# chomp is true because $ORS is "\n"
	ok( chomp($foo), '$ORS should be \n' );
}

is( $FORMAT_NAME, 'OUT', '$FORMAT_NAME' );
is( $FORMAT_TOP_NAME, 'OUT_TOP', '$FORMAT_TOP_NAME' );
is( $FORMAT_FORMFEED, "\f", '$FORMAT_FORMFEED' );
is( $FORMAT_LINES_LEFT, 0, '$FORMAT_LINES_LEFT' );
is( $FORMAT_LINES_PER_PAGE, 60, '$FORMAT_LINES_PER_PAGE' );
is( $FORMAT_LINE_BREAK_CHARACTERS, " \n-", '$FORMAT_LINE_BREAK_CHARACTERS');
is( $FORMAT_PAGE_NUMBER, 0, '$FORMAT_PAGE_NUMBER' );
is( $ACCUMULATOR, $^A, '$ACCUMULATOR' );

undef $OUTPUT_FIELD_SEPARATOR;

if ($threads) { $" = "\n" } else { $LIST_SEPARATOR = "\n" };
@foo = (8, 9);
@foo = split(/\n/, "@foo");
is( $foo[0], 8, '$"' );
is( $foo[1], 9, '$LIST_SEPARATOR' );

undef $OUTPUT_RECORD_SEPARATOR;

eval 'NO SUCH FUNCTION';
like( $EVAL_ERROR, qr/method/, '$EVAL_ERROR' );

is( $UID, $<, '$UID' );
is( $GID, $(, '$GID' );
is( $EUID, $>, '$EUID' );
is( $EGID, $), '$EGID' );

is( $PROGRAM_NAME, $0, '$PROGRAM_NAME' );
is( $BASETIME, $^T, '$BASETIME' );

is( $PERL_VERSION, $^V, '$PERL_VERSION' );
is( $OLD_PERL_VERSION, $], '$OLD_PERL_VERSION' );
is( $DEBUGGING, $^D, '$DEBUGGING' );

is( $WARNING, 0, '$WARNING' );
like( $EXECUTABLE_NAME, qr/perl/i, '$EXECUTABLE_NAME' );
is( $OSNAME, $Config{osname}, '$OSNAME' );

# may be non-portable
ok( $SYSTEM_FD_MAX >= 2, '$SYSTEM_FD_MAX should be at least 2' );

is( $INPLACE_EDIT, '.inplace', '$INPLACE_EDIT' );

'aabbcc' =~ /(.{2}).+(.{2})(?{ 9 })/;
is( $LAST_PAREN_MATCH, 'cc', '$LAST_PAREN_MATCH' );
is( $LAST_REGEXP_CODE_RESULT, 9, '$LAST_REGEXP_CODE_RESULT' );

is( $LAST_MATCH_START[1], 0, '@LAST_MATCH_START' );
is( $LAST_MATCH_END[1], 2, '@LAST_MATCH_END' );

ok( !$PERLDB, '$PERLDB should be false' );

{
	local $INPUT_RECORD_SEPARATOR = "\n\n";
	like( <DATA>, qr/a paragraph./, '$INPUT_RECORD_SEPARATOR' );
}
like( <DATA>, qr/second paragraph..\z/s, '$INPUT_RECORD_SEPARATOR' );

is( $INPUT_LINE_NUMBER, 2, '$INPUT_LINE_NUMBER' );

my %hash;
$SUBSCRIPT_SEPARATOR = '|';
$hash{d,e,f} = 1;
$SUBSEP = ',';
$hash{'a', 'b', 'c'} = 1;
my @keys = sort keys %hash;

is( $keys[0], 'a,b,c', '$SUBSCRIPT_SEPARATOR' );
is( $keys[1], 'd|e|f', '$SUBSCRIPT_SEPARATOR' );

eval { is( $EXCEPTIONS_BEING_CAUGHT, 1, '$EXCEPTIONS_BEING_CAUGHT' ) };
ok( !$EXCEPTIONS_BEING_CAUGHT, '$EXCEPTIONS_BEING_CAUGHT should be false' );

eval { local *F; my $f = 'asdasdasd'; ++$f while -e $f; open(F, $f); };
is( $OS_ERROR, $ERRNO, '$OS_ERROR' );
ok( $OS_ERROR{ENOENT}, '%OS_ERROR (ENOENT should be set)' );

package B;

use English;

"abc" =~ /b/;

main::is( $PREMATCH, 'a', '$PREMATCH defined' );
main::is( $MATCH, 'b', '$MATCH defined' );
main::is( $POSTMATCH, 'c', '$POSTMATCH defined' );

{
    my $s = "xyz";
    $s =~ s/y/t$MATCH/;
    main::is( $s, "xtyz", '$MATCH defined in right side of s///' );
}

package C;

use English qw( -no_match_vars ) ;

"abc" =~ /b/;

main::ok( !$PREMATCH, '$PREMATCH disabled' );
main::ok( !$MATCH, '$MATCH disabled' );
main::ok( !$POSTMATCH, '$POSTMATCH disabled' );

# Check that both variables change when localized.
{
    local $LIST_SEPARATOR = "wibble";
    ::is $", 'wibble', '$" changes when $LIST_SEPARATOR is localized';

local $" = 'frooble';
    ::is $LIST_SEPARATOR, 'frooble';
}

__END__
This is a line.
This is a paragraph.

This is a second paragraph.
It has several lines.