Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
basic.t	9.74 KB	-r--r--r--	2014-12-27 11:49
basic_01_c3.t	932 B	-r--r--r--	2014-12-27 11:49
basic_01_c3_utf8.t	1.05 KB	-r--r--r--	2014-12-27 11:49
basic_01_dfs.t	933 B	-r--r--r--	2014-12-27 11:49
basic_01_dfs_utf8.t	1.05 KB	-r--r--r--	2014-12-27 11:49
basic_02_c3.t	3.09 KB	-r--r--r--	2014-12-27 11:49
basic_02_c3_utf8.t	3.32 KB	-r--r--r--	2014-12-27 11:49
basic_02_dfs.t	3.1 KB	-r--r--r--	2014-12-27 11:49
basic_02_dfs_utf8.t	3.32 KB	-r--r--r--	2014-12-27 11:49
basic_03_c3.t	2.37 KB	-r--r--r--	2014-12-27 11:49
basic_03_c3_utf8.t	2.55 KB	-r--r--r--	2014-12-27 11:49
basic_03_dfs.t	2.37 KB	-r--r--r--	2014-12-27 11:49
basic_03_dfs_utf8.t	2.56 KB	-r--r--r--	2014-12-27 11:49
basic_04_c3.t	705 B	-r--r--r--	2014-12-27 11:49
basic_04_c3_utf8.t	839 B	-r--r--r--	2014-12-27 11:49
basic_04_dfs.t	711 B	-r--r--r--	2014-12-27 11:49
basic_04_dfs_utf8.t	858 B	-r--r--r--	2014-12-27 11:49
basic_05_c3.t	959 B	-r--r--r--	2014-12-27 11:49
basic_05_c3_utf8.t	1.05 KB	-r--r--r--	2014-12-27 11:49
basic_05_dfs.t	945 B	-r--r--r--	2014-12-27 11:49
basic_05_dfs_utf8.t	1.04 KB	-r--r--r--	2014-12-27 11:49
basic_utf8.t	8.63 KB	-r--r--r--	2014-12-27 11:49
c3_with_overload.t	1.13 KB	-r--r--r--	2014-12-27 11:49
c3_with_overload_utf8.t	1.13 KB	-r--r--r--	2014-12-27 11:49
complex_c3.t	4.03 KB	-r--r--r--	2014-12-27 11:49
complex_c3_utf8.t	4.44 KB	-r--r--r--	2014-12-27 11:49
complex_dfs.t	3.89 KB	-r--r--r--	2014-12-27 11:49
complex_dfs_utf8.t	4.3 KB	-r--r--r--	2014-12-27 11:49
dbic_c3.t	4.05 KB	-r--r--r--	2014-12-27 11:49
dbic_c3_utf8.t	5.07 KB	-r--r--r--	2014-12-27 11:49
dbic_dfs.t	4.08 KB	-r--r--r--	2014-12-27 11:49
dbic_dfs_utf8.t	5.1 KB	-r--r--r--	2014-12-27 11:49
inconsistent_c3.t	870 B	-r--r--r--	2014-12-27 11:49
inconsistent_c3_utf8.t	888 B	-r--r--r--	2014-12-27 11:49
isa_aliases.t	1.51 KB	-r--r--r--	2014-12-27 11:49
isa_aliases_utf8.t	1.46 KB	-r--r--r--	2014-12-27 11:49
isa_c3.t	1.28 KB	-r--r--r--	2014-12-27 11:49
isa_c3_utf8.t	1.31 KB	-r--r--r--	2014-12-27 11:49
isa_dfs.t	1.06 KB	-r--r--r--	2014-12-27 11:49
isa_dfs_utf8.t	1.24 KB	-r--r--r--	2014-12-27 11:49
isarev.t	4.71 KB	-r--r--r--	2014-12-27 11:49
isarev_utf8.t	5.39 KB	-r--r--r--	2014-12-27 11:49
method_caching.t	5.31 KB	-r--r--r--	2014-12-27 11:49
method_caching_utf8.t	3.79 KB	-r--r--r--	2014-12-27 11:49
next_NEXT.t	1012 B	-r--r--r--	2014-12-27 11:49
next_NEXT_utf8.t	1.07 KB	-r--r--r--	2014-12-27 11:49
next_edgecases.t	2.01 KB	-r--r--r--	2014-12-27 11:49
next_edgecases_utf8.t	2.05 KB	-r--r--r--	2014-12-27 11:49
next_goto.t	856 B	-r--r--r--	2014-12-27 11:49
next_goto_utf8.t	953 B	-r--r--r--	2014-12-27 11:49
next_inanon.t	889 B	-r--r--r--	2014-12-27 11:49
next_inanon_utf8.t	972 B	-r--r--r--	2014-12-27 11:49
next_ineval.t	561 B	-r--r--r--	2014-12-27 11:49
next_ineval_utf8.t	629 B	-r--r--r--	2014-12-27 11:49
next_method.t	1.49 KB	-r--r--r--	2014-12-27 11:49
next_method_utf8.t	1.59 KB	-r--r--r--	2014-12-27 11:49
next_skip.t	2.43 KB	-r--r--r--	2014-12-27 11:49
next_skip_utf8.t	2.75 KB	-r--r--r--	2014-12-27 11:49
overload_c3.t	1.22 KB	-r--r--r--	2014-12-27 11:49
overload_c3_utf8.t	1.4 KB	-r--r--r--	2014-12-27 11:49
overload_dfs.t	1.22 KB	-r--r--r--	2014-12-27 11:49
package_aliases.t	11.02 KB	-r--r--r--	2014-12-27 11:49
package_aliases_utf8.t	12.86 KB	-r--r--r--	2014-12-27 11:49
pkg_gen.t	908 B	-r--r--r--	2014-12-27 11:49
pkg_gen_utf8.t	964 B	-r--r--r--	2014-12-27 11:49
recursion_c3.t	2.11 KB	-r--r--r--	2014-12-27 11:49
recursion_c3_utf8.t	2.24 KB	-r--r--r--	2014-12-27 11:49
recursion_dfs.t	1.9 KB	-r--r--r--	2014-12-27 11:49
recursion_dfs_utf8.t	2.03 KB	-r--r--r--	2014-12-27 11:49
vulcan_c3.t	1.3 KB	-r--r--r--	2014-12-27 11:49
vulcan_c3_utf8.t	1.49 KB	-r--r--r--	2014-12-27 11:49
vulcan_dfs.t	1.31 KB	-r--r--r--	2014-12-27 11:49
vulcan_dfs_utf8.t	1.48 KB	-r--r--r--	2014-12-27 11:49

Rename

#!./perl

use strict;
use warnings;
BEGIN {
    unless (-d 'blib') {
        chdir 't' if -d 't';
        @INC = '../lib';
    }
}
use utf8;
use open qw( :utf8 :std );

require './test.pl';

plan(skip_all => "Your system has no SIGALRM") if !exists $SIG{ALRM};
plan(tests => 8);

=pod

These are like the 010_complex_merge_classless test,
but an infinite loop has been made in the heirarchy,
to test that we can fail cleanly instead of going
into an infinite loop

=cut

# initial setup, everything sane
{
    package ƙ;
    our @ISA = qw/ᶨ ィ/;
    package ᶨ;
    our @ISA = qw/ｆ/;
    package ィ;
    our @ISA = qw/ʰ ｆ/;
    package ʰ;
    our @ISA = qw/ᶢ/;
    package ᶢ;
    our @ISA = qw/ᛞ/;
    package ｆ;
    our @ISA = qw/ǝ/;
    package ǝ;
    our @ISA = qw/ᛞ/;
    package ᛞ;
    our @ISA = qw/Ạ Ｂ ʗ/;
    package ʗ;
    our @ISA = qw//;
    package Ｂ;
    our @ISA = qw//;
    package Ạ;
    our @ISA = qw//;
}

# A series of 8 aberations that would cause infinite loops,
#  each one undoing the work of the previous
my @loopies = (
    sub { @ǝ::ISA = qw/ｆ/ },
    sub { @ǝ::ISA = qw/ᛞ/; @ʗ::ISA = qw/ｆ/ },
    sub { @ʗ::ISA = qw//; @Ạ::ISA = qw/ƙ/ },
    sub { @Ạ::ISA = qw//; @ᶨ::ISA = qw/ｆ ƙ/ },
    sub { @ᶨ::ISA = qw/ｆ/; @ʰ::ISA = qw/ƙ ᶢ/ },
    sub { @ʰ::ISA = qw/ᶢ/; @Ｂ::ISA = qw/Ｂ/ },
    sub { @Ｂ::ISA = qw//; @ƙ::ISA = qw/ƙ ᶨ ィ/ },
    sub { @ƙ::ISA = qw/ᶨ ィ/; @ᛞ::ISA = qw/Ạ ʰ Ｂ ʗ/ },
);

foreach my $loopy (@loopies) {
    eval {
        local $SIG{ALRM} = sub { die "ALRMTimeout" };
        alarm(3);
        $loopy->();
        mro::get_linear_isa('ƙ', 'dfs');
    };

if(my $err = $@) {
        if($err =~ /ALRMTimeout/) {
            ok(0, "Loop terminated by SIGALRM");
        }
        elsif($err =~ /Recursive inheritance detected/) {
            ok(1, "Graceful exception thrown");
        }
        else {
            ok(0, "Unrecognized exception: $err");
        }
    }
    else {
        ok(0, "Infinite loop apparently succeeded???");
    }
}