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
Carp.t	10.98 KB	-r--r--r--	2014-12-27 11:48
Carp_overload.t	1.4 KB	-r--r--r--	2014-12-27 11:48
arg_regexp.t	2.69 KB	-r--r--r--	2014-12-27 11:48
arg_string.t	1.43 KB	-r--r--r--	2014-12-27 11:48
baduni.t	232 B	-r--r--r--	2014-12-27 11:48
baduni_warnings.t	269 B	-r--r--r--	2014-12-27 11:48
errno.t	1.23 KB	-r--r--r--	2014-12-27 11:48
heavy.t	294 B	-r--r--r--	2014-12-27 11:48
heavy_mismatch.t	276 B	-r--r--r--	2014-12-27 11:48
stash_deletion.t	2.08 KB	-r--r--r--	2014-12-27 11:48
swash.t	99 B	-r--r--r--	2014-12-27 11:48
vivify_gv.t	873 B	-r--r--r--	2014-12-27 11:48
vivify_stash.t	818 B	-r--r--r--	2014-12-27 11:48
with_warnings.t	168 B	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 15;

use Carp;

{
    my $sub = eval <<'EVAL';
package Die;
sub {
#line 1 foo
    die "blah";
}
EVAL
    ok(!$@);
    eval { $sub->() };
    like($@, qr/^blah at foo line 1/);
    {
        no strict 'refs';
        delete ${'::'}{'Die::'};
    }
    eval { $sub->() };
    like($@, qr/^blah at foo line 1/);
}

{
    my $sub = eval <<'EVAL';
package Confess;
sub {
#line 1 foo
    Carp::confess("blah");
}
EVAL
    ok(!$@);
    eval { $sub->() };
    like($@, qr/^blah at foo line 1/);
    {
        no strict 'refs';
        delete ${'::'}{'Confess::'};
    }
    eval { $sub->() };
    like($@, qr/^blah at foo line 1/);
}

{
    my $sub = eval <<'EVAL';
package CroakHelper;
sub x {
    Carp::croak("blah");
}
package Croak;
sub {
#line 1 foo
    CroakHelper::x();
}
EVAL
    ok(!$@);
    eval { $sub->() };
    like($@, qr/^blah at foo line 1/);
    {
        no strict 'refs';
        delete ${'::'}{'Croak::'};
    }
    eval { $sub->() };
    like($@, qr/^blah at foo line 1/);
    {
        no strict 'refs';
        delete ${'::'}{'CroakHelper::'};
    }
    eval { $sub->() };
    like($@, qr/^blah at foo line 1/);
}

{
    # the amount of information available and how it is displayed varies quite
    # a bit depending on the version of perl (specifically, what caller returns
    # in that version), so there is a bit of fiddling around required to handle
    # that
    my $unknown_pat = qr/__ANON__::/;
    $unknown_pat = qr/$unknown_pat|$unknown$/
        if $] < 5.014;

my $sub = eval <<'EVAL';
package SubHelper;
sub x {
    Carp::confess("blah");
}
package Sub;
sub {
#line 1 foo
    SubHelper::x();
}
EVAL
    ok(!$@);
    eval { $sub->() };
    unlike($@, qr/$unknown_pat/);
    {
        no strict 'refs';
        delete ${'::'}{'Sub::'};
    }
    eval { $sub->() };
    like($@, qr/$unknown_pat|Sub::/);
    unlike($@, qr/$unknown_pat.*$unknown_pat/s);
    {
        no strict 'refs';
        delete ${'::'}{'SubHelper::'};
    }
    eval { $sub->() };
    like($@, qr/(?:$unknown_pat|SubHelper::).*(?:$unknown_pat|Sub::)/s);
}