Script started on 2020-06-01 20:05:34+00:00 [TERM="xterm" TTY="/dev/pts/0" COLUMNS="112" LINES="57"] # lintian --help Threads support enabled Loading DB routines from perl5db.pl version 1.55 Editor support available. Enter h or 'h h' for help, or 'man perldebug' for more help. main::(/usr/bin/lintian:55): };  [0] DB<1> t Trace = on  [0] DB<0> c dplint::(/usr/bin/lintian:70): my $INIT_ROOT = q{/usr/share/lintian}; dplint::(/usr/bin/lintian:75): my (@INCLUDE_DIRS, @RESTRICTED_INCLUDE_DIRS); dplint::(/usr/bin/lintian:76): my $LINTIAN_VERSION = q{2.62.0}; # Substituted during build/install dplint::(/usr/bin/lintian:78): my %BUILTINS = ( dplint::(/usr/bin/lintian:79): 'help' => \&builtin_help, dplint::(/usr/bin/lintian:80): 'version' => \&builtin_version, dplint::(/usr/bin/lintian:81): 'print-version' => \&builtin_version, dplint::(/usr/bin/lintian:82): ); dplint::(/usr/bin/lintian:383): main(); dplint::main(/usr/bin/lintian:228): my $user_dirs = 1; dplint::main(/usr/bin/lintian:229): my %opthash = ( dplint::main(/usr/bin/lintian:230): 'include-dir=s' => \&cmd_add_include_dir, dplint::main(/usr/bin/lintian:231): 'user-dirs!' => $user_dirs, dplint::main(/usr/bin/lintian:232): ); dplint::main(/usr/bin/lintian:234): binmode(STDOUT, ':utf8'); dplint::main(/usr/bin/lintian:237): Getopt::Long::config( dplint::main(/usr/bin/lintian:238): 'bundling', 'no_getopt_compat', dplint::main(/usr/bin/lintian:239): 'no_auto_abbrev', 'require_order', dplint::main(/usr/bin/lintian:240): 'pass_through' dplint::main(/usr/bin/lintian:241): ); Getopt::Long::config(/usr/share/perl/5.30/Getopt/Long.pm:1458): 1458: Configure (@_); Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1337): 1337: my (@options) = @_; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1339): 1339: my $prevconfig = 1340: [ $error, $debug, $major_version, $minor_version, $caller, 1341: $autoabbrev, $getopt_compat, $ignorecase, $bundling, $order, 1342: $gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help, 1343: $longprefix, $bundling_values ]; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1345): 1345: if ( ref($options[0]) eq 'ARRAY' ) { 1346: ( $error, $debug, $major_version, $minor_version, $caller, 1347: $autoabbrev, $getopt_compat, $ignorecase, $bundling, $order, 1348: $gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help, Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1352): 1352: my $opt; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1353): 1353: foreach $opt ( @options ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1354): 1354: my $try = lc ($opt); Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1355): 1355: my $action = 1; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1356): 1356: if ( $try =~ /^no_?(.*)$/s ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1360): 1360: if ( ($try eq 'default' or $try eq 'defaults') && $action ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1403): 1403: $bundling = $action; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1404): 1404: $bundling_values = 0 if $action; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1354): 1354: my $try = lc ($opt); Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1355): 1355: my $action = 1; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1356): 1356: if ( $try =~ /^no_?(.*)$/s ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1357): 1357: $action = 0; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1358): 1358: $try = $+; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1360): 1360: if ( ($try eq 'default' or $try eq 'defaults') && $action ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1372): 1372: $getopt_compat = $action; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1373): 1373: $genprefix = $action ? "(--|-|\\+)" : "(--|-)"; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1354): 1354: my $try = lc ($opt); Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1355): 1355: my $action = 1; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1356): 1356: if ( $try =~ /^no_?(.*)$/s ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1357): 1357: $action = 0; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1358): 1358: $try = $+; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1360): 1360: if ( ($try eq 'default' or $try eq 'defaults') && $action ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1369): 1369: $autoabbrev = $action; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1354): 1354: my $try = lc ($opt); Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1355): 1355: my $action = 1; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1356): 1356: if ( $try =~ /^no_?(.*)$/s ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1360): 1360: if ( ($try eq 'default' or $try eq 'defaults') && $action ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1415): 1415: $order = $action ? $REQUIRE_ORDER : $PERMUTE; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1354): 1354: my $try = lc ($opt); Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1355): 1355: my $action = 1; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1356): 1356: if ( $try =~ /^no_?(.*)$/s ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1360): 1360: if ( ($try eq 'default' or $try eq 'defaults') && $action ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1421): 1421: $passthrough = $action; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1453): 1453: $prevconfig; dplint::main(/usr/bin/lintian:244): Getopt::Long::GetOptions(%opthash) dplint::main(/usr/bin/lintian:245): or error("error parsing options\n"); Getopt::Long::GetOptions(/usr/share/perl/5.30/Getopt/Long.pm:268): 268: unshift(@_, \@ARGV); Getopt::Long::GetOptions(/usr/share/perl/5.30/Getopt/Long.pm:270): 270: goto &GetOptionsFromArray; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:289): 289: my ($argv, @optionlist) = @_; # local copy of the option descriptions Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:290): 290: my $argend = '--'; # option list terminator Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:291): 291: my %opctl = (); # table of option specs Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:292): 292: my $pkg = $caller || (caller)[0]; # current context Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:294): 294: my @ret = (); # accum for non-options Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:295): 295: my %linkage; # linkage Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:296): 296: my $userlinkage; # user supplied HASH Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:297): 297: my $opt; # current option Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:298): 298: my $prefix = $genprefix; # current prefix Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:300): 300: $error = ''; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:302): 302: if ( $debug ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:332): 332: $userlinkage = undef; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:333): 333: if ( @optionlist && ref($optionlist[0]) and 334: UNIVERSAL::isa($optionlist[0],'HASH') ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:342): 342: if ( @optionlist && $optionlist[0] =~ /^\W+$/ 343: && !($optionlist[0] eq '<>' 344: && @optionlist > 0 345: && ref($optionlist[1])) ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:354): 354: %opctl = (); Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:355): 355: while ( @optionlist ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:356): 356: my $opt = shift (@optionlist); Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:358): 358: unless ( defined($opt) ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:364): 364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:366): 366: if ( $opt eq '<>' ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:386): 386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:801): 801: my ($opt, $opctl) = @_; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:804): 804: if ( $opt !~ m;^ 805: ( Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:827): 827: my ($names, $spec) = ($1, $2); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:828): 828: $spec = '' unless defined $spec; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:836): 836: my $orig; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:838): 838: my @names; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:839): 839: if ( defined $names ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:840): 840: @names = split (/\|/, $names); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:841): 841: $orig = $names[0]; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:849): 849: my $entry; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:850): 850: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:866): 866: my ($mand, $type, $dest) = 867: $spec =~ /^([=:])([ionfs])([@%])?(\{(\d+)?(,)?(\d+)?\})?$/; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:868): 868: return (undef, "Cannot repeat while bundling: \"$opt\"\n") 869: if $bundling && defined($4); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:870): 870: my ($mi, $cm, $ma) = ($5, $6, $7); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:871): 871: return (undef, "{0} is useless in option spec: \"$opt\"\n") 872: if defined($mi) && !$mi && !defined($ma) && !defined($cm); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:874): 874: $type = 'i' if $type eq 'n'; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:875): 875: $dest ||= '$'; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:876): 876: $dest = $dest eq '@' ? CTL_DEST_ARRAY 877: : $dest eq '%' ? CTL_DEST_HASH : CTL_DEST_SCALAR; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:879): 879: $mi = $mand eq '=' ? 1 : 0 unless defined $mi; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:881): 881: $mand = $mi ? '=' : ':'; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:883): 883: $ma = $mi ? $mi : 1 unless defined $ma || defined $cm; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:884): 884: return (undef, "Max must be greater than zero in option spec: \"$opt\"\n") 885: if defined($ma) && !$ma; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:886): 886: return (undef, "Max less than min in option spec: \"$opt\"\n") 887: if defined($ma) && $ma < $mi; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:890): 890: $entry = [$type,$orig,undef,$dest,$mi,$ma||-1]; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:894): 894: my $dups = ''; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:895): 895: foreach ( @names ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:897): 897: $_ = lc ($_) 898: if $ignorecase > (($bundling && length($_) == 1) ? 1 : 0); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:900): 900: if ( exists $opctl->{$_} ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:904): 904: if ( $spec eq '!' ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:911): 911: $opctl->{$_} = $entry; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:915): 915: if ( $dups && $^W ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:920): 920: ($names[0], $orig); Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:387): 387: unless ( defined $name ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:398): 398: if ( defined $userlinkage ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:415): 415: if ( @optionlist > 0 && ref($optionlist[0]) ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:416): 416: print STDERR ("=> link \"$orig\" to $optionlist[0]\n") 417: if $debug; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:418): 418: my $rl = ref($linkage{$orig} = shift (@optionlist)); Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:420): 420: if ( $rl eq "ARRAY" ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:466): 466: if ( $opctl{$name}[CTL_TYPE] eq 'I' 467: && ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY 468: || $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) 469: ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:356): 356: my $opt = shift (@optionlist); Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:358): 358: unless ( defined($opt) ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:364): 364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:366): 366: if ( $opt eq '<>' ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:386): 386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:801): 801: my ($opt, $opctl) = @_; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:804): 804: if ( $opt !~ m;^ 805: ( Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:827): 827: my ($names, $spec) = ($1, $2); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:828): 828: $spec = '' unless defined $spec; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:836): 836: my $orig; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:838): 838: my @names; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:839): 839: if ( defined $names ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:840): 840: @names = split (/\|/, $names); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:841): 841: $orig = $names[0]; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:849): 849: my $entry; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:850): 850: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:852): 852: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:894): 894: my $dups = ''; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:895): 895: foreach ( @names ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:897): 897: $_ = lc ($_) 898: if $ignorecase > (($bundling && length($_) == 1) ? 1 : 0); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:900): 900: if ( exists $opctl->{$_} ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:904): 904: if ( $spec eq '!' ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:905): 905: $opctl->{"no$_"} = $entry; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:906): 906: $opctl->{"no-$_"} = $entry; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:907): 907: $opctl->{$_} = [@$entry]; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:908): 908: $opctl->{$_}->[CTL_TYPE] = ''; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:915): 915: if ( $dups && $^W ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:920): 920: ($names[0], $orig); Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:387): 387: unless ( defined $name ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:398): 398: if ( defined $userlinkage ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:415): 415: if ( @optionlist > 0 && ref($optionlist[0]) ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:447): 447: my $ov = $orig; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:448): 448: $ov =~ s/\W/_/g; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:449): 449: if ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:460): 460: print STDERR ("=> link \"$orig\" to \$$pkg","::opt_$ov\n") 461: if $debug; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:462): 462: eval ("\$linkage{\$orig} = \\\$".$pkg."::opt_$ov;"); Getopt::Long::GetOptionsFromArray((eval 14)[/usr/share/perl/5.30/Getopt/Long.pm:462]:1): 1: $linkage{$orig} = \$dplint::opt_user_dirs; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:466): 466: if ( $opctl{$name}[CTL_TYPE] eq 'I' 467: && ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY 468: || $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) 469: ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:356): 356: my $opt = shift (@optionlist); Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:358): 358: unless ( defined($opt) ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:364): 364: $opt = $+ if $opt =~ /^$prefix+(.*)$/s; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:366): 366: if ( $opt eq '<>' ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:386): 386: my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:801): 801: my ($opt, $opctl) = @_; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:804): 804: if ( $opt !~ m;^ 805: ( Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:827): 827: my ($names, $spec) = ($1, $2); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:828): 828: $spec = '' unless defined $spec; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:836): 836: my $orig; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:838): 838: my @names; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:839): 839: if ( defined $names ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:840): 840: @names = split (/\|/, $names); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:841): 841: $orig = $names[0]; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:849): 849: my $entry; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:850): 850: if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:852): 852: $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:894): 894: my $dups = ''; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:895): 895: foreach ( @names ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:897): 897: $_ = lc ($_) 898: if $ignorecase > (($bundling && length($_) == 1) ? 1 : 0); Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:900): 900: if ( exists $opctl->{$_} ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:904): 904: if ( $spec eq '!' ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:911): 911: $opctl->{$_} = $entry; Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:915): 915: if ( $dups && $^W ) { Getopt::Long::ParseOptionSpec(/usr/share/perl/5.30/Getopt/Long.pm:920): 920: ($names[0], $orig); Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:387): 387: unless ( defined $name ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:398): 398: if ( defined $userlinkage ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:415): 415: if ( @optionlist > 0 && ref($optionlist[0]) ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:447): 447: my $ov = $orig; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:448): 448: $ov =~ s/\W/_/g; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:449): 449: if ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:460): 460: print STDERR ("=> link \"$orig\" to \$$pkg","::opt_$ov\n") 461: if $debug; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:462): 462: eval ("\$linkage{\$orig} = \\\$".$pkg."::opt_$ov;"); Getopt::Long::GetOptionsFromArray((eval 15)[/usr/share/perl/5.30/Getopt/Long.pm:462]:1): 1: $linkage{$orig} = \$dplint::opt_1; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:466): 466: if ( $opctl{$name}[CTL_TYPE] eq 'I' 467: && ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY 468: || $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) 469: ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:475): 475: $error .= "GetOptionsFromArray: 1st parameter is not an array reference\n" 476: unless $argv && UNIVERSAL::isa( $argv, 'ARRAY' ); Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:479): 479: die ($error) if $error; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:480): 480: $error = 0; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:483): 483: if ( defined($auto_version) ? $auto_version : ($requested_version >= 2.3203) ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:490): 490: if ( defined($auto_help) ? $auto_help : ($requested_version >= 2.3203) ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:499): 499: if ( $debug ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:509): 509: my $goon = 1; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:510): 510: while ( $goon && @$argv > 0 ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:513): 513: $opt = shift (@$argv); Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:514): 514: print STDERR ("=> arg \"", $opt, "\"\n") if $debug; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:517): 517: if ( defined($opt) && $opt eq $argend ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:523): 523: my $tryopt = $opt; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:524): 524: my $found; # success status Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:525): 525: my $key; # key (if hash type) Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:526): 526: my $arg; # option argument Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:527): 527: my $ctl; # the opctl entry Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:529): 529: ($found, $opt, $ctl, $arg, $key) = 530: FindOption ($argv, $prefix, $argend, $opt, \%opctl); Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:930): 930: my ($argv, $prefix, $argend, $opt, $opctl) = @_; Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:932): 932: print STDERR ("=> find \"$opt\"\n") if $debug; Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:934): 934: return (0) unless defined($opt); Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:935): 935: return (0) unless $opt =~ /^($prefix)(.*)$/s; Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:936): 936: return (0) if $opt eq "-" && !defined $opctl->{''}; Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:938): 938: $opt = substr( $opt, length($1) ); # retain taintedness Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:939): 939: my $starter = $1; Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:941): 941: print STDERR ("=> split \"$starter\"+\"$opt\"\n") if $debug; Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:943): 943: my $optarg; # value supplied with --opt=value Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:944): 944: my $rest; # remainder from unbundling Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:948): 948: if ( ($starter=~/^$longprefix$/ 949: || ($getopt_compat && ($bundling == 0 || $bundling == 2))) 950: && (my $oppos = index($opt, '=', 1)) > 0) { Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:960): 960: my $tryopt = $opt; # option to try Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:962): 962: if ( ( $bundling || $bundling_values ) && $starter eq '-' ) { Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:1058): 1058: $tryopt = lc ($opt); Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:1062): 1062: my $ctl = $opctl->{$tryopt}; Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:1063): 1063: unless ( defined $ctl ) { Getopt::Long::FindOption(/usr/share/perl/5.30/Getopt/Long.pm:1064): 1064: return (0) if $passthrough; Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:532): 532: if ( $found ) { Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:765): 765: unshift (@$argv, $tryopt); Getopt::Long::GetOptionsFromArray(/usr/share/perl/5.30/Getopt/Long.pm:766): 766: return ($error == 0); dplint::main(/usr/bin/lintian:247): setup_env($user_dirs); dplint::setup_env(/usr/bin/lintian:128): 128: my ($user_dirs) = @_; dplint::setup_env(/usr/bin/lintian:130): 130: if ($user_dirs) { dplint::setup_env(/usr/bin/lintian:131): 131: my ($data_home, $legacy_user_data); dplint::setup_env(/usr/bin/lintian:133): 133: load_file_basedir(); dplint::load_file_basedir(/usr/bin/lintian:183): 183: local $ENV{'HOME'} = $ENV{'HOME'} // '/nonexistent'; dplint::load_file_basedir(/usr/bin/lintian:184): 184: require File::BaseDir; File::BaseDir::CODE(0x400194f610)(/usr/share/perl5/File/BaseDir.pm:3): 3: use strict; File::BaseDir::CODE(0x400194f610)(/usr/share/perl5/File/BaseDir.pm:3): 3: use strict; File::BaseDir::CODE(0x400194f610)(/usr/share/perl5/File/BaseDir.pm:3): 3: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; File::BaseDir::CODE(0x400194ec08)(/usr/share/perl5/File/BaseDir.pm:4): 4: use Carp; File::BaseDir::CODE(0x400194ec08)(/usr/share/perl5/File/BaseDir.pm:4): 4: use Carp; File::BaseDir::CODE(0x400194ec08)(/usr/share/perl5/File/BaseDir.pm:4): 4: use Carp; Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:5): 5: require File::Spec; dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:6): 6: require Exporter; dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:8): 8: our $VERSION = 0.08; dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:10): 10: our @ISA = qw(Exporter); dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:11): 11: our %EXPORT_TAGS = ( 12: vars => [ qw( 13: xdg_data_home xdg_data_dirs 14: xdg_config_home xdg_config_dirs 15: xdg_cache_home 16: ) ], 17: lookup => [ qw( 18: data_home data_dirs data_files 19: config_home config_dirs config_files 20: cache_home 21: ) ], 22: ); dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:23): 23: our @EXPORT_OK = ( 24: qw(xdg_data_files xdg_config_files), 25: map @$_, values %EXPORT_TAGS 26: ); dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:29): 29: my $rootdir = File::Spec->rootdir(); File::Spec::Unix::rootdir(/usr/lib/aarch64-linux-gnu/perl/5.30/File/Spec/Unix.pm:132): 132: sub rootdir { '/' } dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:30): 30: if ($^O eq 'MSWin32') { dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:35): 35: my $home = $ENV{HOME}; dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:36): 36: unless ($home) { dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:43): 43: our $xdg_data_home = File::Spec->catdir($home, qw/.local share/); dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:44): 44: our @xdg_data_dirs = ( 45: File::Spec->catdir($rootdir, qw/usr local share/), 46: File::Spec->catdir($rootdir, qw/usr share/), 47: ); dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:48): 48: our $xdg_config_home = File::Spec->catdir($home, '.config'); dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:49): 49: our @xdg_config_dirs = ( File::Spec->catdir($rootdir, qw/etc xdg/) ); dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:50): 50: our $xdg_cache_home = File::Spec->catdir($home, '.cache'); dplint::load_file_basedir(/usr/share/perl5/File/BaseDir.pm:128): 128: 1; dplint::load_file_basedir(/usr/bin/lintian:185): 185: File::BaseDir->import(qw(config_home config_files data_home)); Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:49): 49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:49): 49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; dplint::load_file_basedir(/usr/bin/lintian:186): 186: return; dplint::setup_env(/usr/bin/lintian:135): 135: if (exists($ENV{'HOME'}) or exists($ENV{'XDG_CONFIG_HOME'})) { dplint::setup_env(/usr/bin/lintian:136): 136: $data_home = data_home('lintian'); File::BaseDir::data_home(/usr/share/perl5/File/BaseDir.pm:82): 82: sub data_home { _catfile(xdg_data_home, @_) } File::BaseDir::xdg_data_home(/usr/share/perl5/File/BaseDir.pm:56): 56: sub xdg_data_home { $ENV{XDG_DATA_HOME} || $xdg_data_home } File::BaseDir::_catfile(/usr/share/perl5/File/BaseDir.pm:101): 101: my $dir = shift; File::BaseDir::_catfile(/usr/share/perl5/File/BaseDir.pm:102): 102: shift if ref $_[0] or $_[0] =~ /::/; # OO call File::BaseDir::_catfile(/usr/share/perl5/File/BaseDir.pm:103): 103: return File::Spec->catfile($dir, @_); dplint::setup_env(/usr/bin/lintian:138): 138: if (exists($ENV{'HOME'})) { dplint::setup_env(/usr/bin/lintian:139): 139: $legacy_user_data = "$ENV{HOME}/.lintian"; dplint::setup_env(/usr/bin/lintian:141): 141: if (defined($data_home) and $data_home !~ m@^/@) { dplint::setup_env(/usr/bin/lintian:147): 147: push(@RESTRICTED_INCLUDE_DIRS, $data_home) 148: if defined($data_home) && -d $data_home; dplint::setup_env(/usr/bin/lintian:149): 149: push(@RESTRICTED_INCLUDE_DIRS, $legacy_user_data) 150: if defined($legacy_user_data) && -d $legacy_user_data; dplint::setup_env(/usr/bin/lintian:151): 151: push(@RESTRICTED_INCLUDE_DIRS, '/etc/lintian') 152: if -d '/etc/lintian'; dplint::setup_env(/usr/bin/lintian:155): 155: push(@INCLUDE_DIRS, $INIT_ROOT); dplint::setup_env(/usr/bin/lintian:157): 157: $ENV{'LINTIAN_ROOT'} = $INIT_ROOT; dplint::setup_env(/usr/bin/lintian:158): 158: $ENV{'LINTIAN_INCLUDE_DIRS'} = join(':', grep { -d } @INCLUDE_DIRS); 159: $ENV{'LINTIAN_RESTRICTED_INCLUDE_DIRS'} dplint::setup_env(/usr/bin/lintian:158): 158: $ENV{'LINTIAN_INCLUDE_DIRS'} = join(':', grep { -d } @INCLUDE_DIRS); 159: $ENV{'LINTIAN_RESTRICTED_INCLUDE_DIRS'} dplint::setup_env(/usr/bin/lintian:160): 160: = join(':', grep { -d } @RESTRICTED_INCLUDE_DIRS); dplint::setup_env(/usr/bin/lintian:161): 161: $ENV{'LINTIAN_ENABLE_USER_DIRS'} = $user_dirs ? 1 : 0; 162: $ENV{'LINTIAN_HELPER_DIRS'} = join( dplint::setup_env(/usr/bin/lintian:164): 164: map { "$_/helpers" } @INCLUDE_DIRS 165: ); dplint::setup_env(/usr/bin/lintian:164): 164: map { "$_/helpers" } @INCLUDE_DIRS 165: ); dplint::setup_env(/usr/bin/lintian:163): 163: ':', grep { -d } dplint::setup_env(/usr/bin/lintian:166): 166: $ENV{'LINTIAN_DPLINT_CALLED_AS'} = $0; dplint::setup_env(/usr/bin/lintian:167): 167: $ENV{'LINTIAN_DPLINT_FRONTEND'} = realpath($0) 168: // error("Cannot resolve $0: $!"); dplint::setup_env(/usr/bin/lintian:170): 170: if (my $coverage_arg = $ENV{'LINTIAN_COVERAGE'}) { dplint::setup_env(/usr/bin/lintian:175): 175: return; dplint::main(/usr/bin/lintian:249): my $called_as = basename($0); File::Basename::basename(/usr/share/perl/5.30/File/Basename.pm:215): 215: my($path) = shift; File::Basename::basename(/usr/share/perl/5.30/File/Basename.pm:220): 220: _strip_trailing_sep($path); File::Basename::_strip_trailing_sep(/usr/share/perl/5.30/File/Basename.pm:332): 332: my $type = $Fileparse_fstype; File::Basename::_strip_trailing_sep(/usr/share/perl/5.30/File/Basename.pm:334): 334: if ($type eq 'MacOS') { File::Basename::_strip_trailing_sep(/usr/share/perl/5.30/File/Basename.pm:337): 337: elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { File::Basename::_strip_trailing_sep(/usr/share/perl/5.30/File/Basename.pm:337): 337: elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { File::Basename::_strip_trailing_sep(/usr/share/perl/5.30/File/Basename.pm:337): 337: elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { File::Basename::_strip_trailing_sep(/usr/share/perl/5.30/File/Basename.pm:337): 337: elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { File::Basename::_strip_trailing_sep(/usr/share/perl/5.30/File/Basename.pm:341): 341: $_[0] =~ s{(.)/*\z}{$1}s; File::Basename::basename(/usr/share/perl/5.30/File/Basename.pm:222): 222: my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) ); File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:105): 105: my($fullname,@suffices) = @_; File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:107): 107: unless (defined $fullname) { File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:112): 112: my $orig_type = ''; File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:113): 113: my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase); File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:115): 115: my($taint) = substr($fullname,0,0); # Is $fullname tainted? File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:117): 117: if ($type eq "VMS" and $fullname =~ m{/} ) { File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:123): 123: my($dirpath, $basename); File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:125): 125: if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) { File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:125): 125: if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) { File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:125): 125: if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) { File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:125): 125: if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) { File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:125): 125: if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) { File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:147): 147: ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s); File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:148): 148: if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) { File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:157): 157: $dirpath = './' unless $dirpath; File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:161): 161: my $tail = ''; File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:162): 162: my $suffix = ''; File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:163): 163: if (@suffices) { File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:174): 174: $tail .= $taint; File::Basename::fileparse(/usr/share/perl/5.30/File/Basename.pm:175): 175: wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail) 176: : ($basename .= $taint); File::Basename::basename(/usr/share/perl/5.30/File/Basename.pm:227): 227: if( length $suffix and !length $basename ) { File::Basename::basename(/usr/share/perl/5.30/File/Basename.pm:232): 232: if( !length $basename ) { File::Basename::basename(/usr/share/perl/5.30/File/Basename.pm:236): 236: return $basename; dplint::main(/usr/bin/lintian:250): my $truename; dplint::main(/usr/bin/lintian:251): my $cmd; dplint::main(/usr/bin/lintian:253): if ($called_as ne 'dplint') { dplint::main(/usr/bin/lintian:254): $truename = $0; dplint::main(/usr/bin/lintian:255): if ($called_as eq 'lintian-ng') { dplint::main(/usr/bin/lintian:258): $cmd = 'lintian'; dplint::main(/usr/bin/lintian:285): if (exists($BUILTINS{$cmd})) { dplint::main(/usr/bin/lintian:298): $truename //= $cmd; dplint::main(/usr/bin/lintian:299): run_tool($truename, $cmd); dplint::run_tool(/usr/bin/lintian:91): 91: my ($truename, $tool) = @_; dplint::run_tool(/usr/bin/lintian:92): 92: for my $include_dir (@INCLUDE_DIRS) { dplint::run_tool(/usr/bin/lintian:93): 93: my $tool_path = "$include_dir/commands/${tool}"; dplint::run_tool(/usr/bin/lintian:94): 94: my $tool_pm_path = "${tool_path}.pm"; dplint::run_tool(/usr/bin/lintian:95): 95: if (-f $tool_path) { dplint::run_tool(/usr/bin/lintian:110): 110: if (-f $tool_pm_path) { dplint::run_tool(/usr/bin/lintian:112): 112: Getopt::Long::config('default'); Getopt::Long::config(/usr/share/perl/5.30/Getopt/Long.pm:1458): 1458: Configure (@_); Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1337): 1337: my (@options) = @_; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1339): 1339: my $prevconfig = 1340: [ $error, $debug, $major_version, $minor_version, $caller, 1341: $autoabbrev, $getopt_compat, $ignorecase, $bundling, $order, 1342: $gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help, 1343: $longprefix, $bundling_values ]; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1345): 1345: if ( ref($options[0]) eq 'ARRAY' ) { 1346: ( $error, $debug, $major_version, $minor_version, $caller, 1347: $autoabbrev, $getopt_compat, $ignorecase, $bundling, $order, 1348: $gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help, Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1352): 1352: my $opt; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1353): 1353: foreach $opt ( @options ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1354): 1354: my $try = lc ($opt); Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1355): 1355: my $action = 1; Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1356): 1356: if ( $try =~ /^no_?(.*)$/s ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1360): 1360: if ( ($try eq 'default' or $try eq 'defaults') && $action ) { Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1361): 1361: ConfigDefaults (); Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:78): 78: if ( defined $ENV{"POSIXLY_CORRECT"} ) { Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:86): 86: $genprefix = "(--|-|\\+)"; Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:87): 87: $autoabbrev = 1; # automatic abbrev of options Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:88): 88: $bundling = 0; # bundling off by default Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:89): 89: $getopt_compat = 1; # allow '+' to start options Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:90): 90: $order = $PERMUTE; Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:93): 93: $debug = 0; # for debugging Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:94): 94: $error = 0; # error tally Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:95): 95: $ignorecase = 1; # ignore case when matching options Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:96): 96: $passthrough = 0; # leave unrecognized options alone Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:97): 97: $gnu_compat = 0; # require --opt=val if value is optional Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:98): 98: $longprefix = "(--)"; # what does a long prefix look like Getopt::Long::ConfigDefaults(/usr/share/perl/5.30/Getopt/Long.pm:99): 99: $bundling_values = 0; # no bundling of values Getopt::Long::Configure(/usr/share/perl/5.30/Getopt/Long.pm:1453): 1453: $prevconfig; dplint::run_tool(/usr/bin/lintian:114): 114: require lib; dplint::run_tool(/usr/bin/lintian:115): 115: lib->import(grep { -d } map { "$_/lib" } @INCLUDE_DIRS); dplint::run_tool(/usr/bin/lintian:115): 115: lib->import(grep { -d } map { "$_/lib" } @INCLUDE_DIRS); dplint::run_tool(/usr/bin/lintian:115): 115: lib->import(grep { -d } map { "$_/lib" } @INCLUDE_DIRS); lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:19): 19: shift; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:21): 21: my %names; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:22): 22: foreach (reverse @_) { lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:50): 50: @INC = grep { ++$names{$_} == 1 } @INC; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:50): 50: @INC = grep { ++$names{$_} == 1 } @INC; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:50): 50: @INC = grep { ++$names{$_} == 1 } @INC; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:50): 50: @INC = grep { ++$names{$_} == 1 } @INC; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:50): 50: @INC = grep { ++$names{$_} == 1 } @INC; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:50): 50: @INC = grep { ++$names{$_} == 1 } @INC; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:50): 50: @INC = grep { ++$names{$_} == 1 } @INC; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:50): 50: @INC = grep { ++$names{$_} == 1 } @INC; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:50): 50: @INC = grep { ++$names{$_} == 1 } @INC; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:50): 50: @INC = grep { ++$names{$_} == 1 } @INC; lib::import(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:51): 51: return; dplint::run_tool(/usr/bin/lintian:117): 117: $ENV{LINTIAN_VERSION} = lintian_version(); dplint::lintian_version(/usr/bin/lintian:304): 304: $LINTIAN_VERSION = guess_version(__FILE__) 305: if not defined($LINTIAN_VERSION); dplint::lintian_version(/usr/bin/lintian:306): 306: return $LINTIAN_VERSION; dplint::run_tool(/usr/bin/lintian:119): 119: $0 = $tool; dplint::run_tool(/usr/bin/lintian:120): 120: $TOOL_RUNNER->($tool_pm_path); main::CODE(0x40010d7508)(/usr/bin/lintian:34): 34: my ($tool_pm_path) = @_; main::CODE(0x40010d7508)(/usr/bin/lintian:35): 35: my $main; main::CODE(0x40010d7508)(/usr/bin/lintian:36): 36: eval {require $tool_pm_path;}; main::CODE(0x40010d7508)(/usr/bin/lintian:36): 36: eval {require $tool_pm_path;}; main::CODE(0x4001011800)(/usr/share/lintian/commands/lintian.pm:25): 25: no lib '.'; main::CODE(0x4001011800)(/usr/share/lintian/commands/lintian.pm:25): 25: no lib '.'; main::CODE(0x4001011800)(/usr/share/lintian/commands/lintian.pm:25): 25: no lib '.'; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:56): 56: shift; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:58): 58: my %names; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:59): 59: foreach my $path (@_) { lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:60): 60: my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir) 61: = _get_dirs($path); lib::_get_dirs(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:74): 74: my($dir) = @_; lib::_get_dirs(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:75): 75: my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir); lib::_get_dirs(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:77): 77: $arch_auto_dir = "$dir/$archname/auto"; lib::_get_dirs(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:78): 78: $arch_dir = "$dir/$archname"; lib::_get_dirs(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:79): 79: $version_dir = "$dir/$version"; lib::_get_dirs(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:80): 80: $version_arch_dir = "$dir/$version/$archname"; lib::_get_dirs(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:82): 82: return($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir); lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:62): 62: ++$names{$path}; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:63): 63: ++$names{$arch_dir} if -d $arch_auto_dir; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:64): 64: ++$names{$version_dir} if -d $version_dir; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:65): 65: ++$names{$version_arch_dir} if -d $version_arch_dir; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:69): 69: @INC = grep { !exists $names{$_} } @INC; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:69): 69: @INC = grep { !exists $names{$_} } @INC; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:69): 69: @INC = grep { !exists $names{$_} } @INC; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:69): 69: @INC = grep { !exists $names{$_} } @INC; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:69): 69: @INC = grep { !exists $names{$_} } @INC; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:69): 69: @INC = grep { !exists $names{$_} } @INC; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:69): 69: @INC = grep { !exists $names{$_} } @INC; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:69): 69: @INC = grep { !exists $names{$_} } @INC; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:69): 69: @INC = grep { !exists $names{$_} } @INC; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:69): 69: @INC = grep { !exists $names{$_} } @INC; lib::unimport(/usr/lib/aarch64-linux-gnu/perl/5.30/lib.pm:70): 70: return; main::CODE(0x4000e6fd90)(/usr/share/lintian/commands/lintian.pm:27): 27: use v5.20; main::CODE(0x4000e6fd90)(/usr/share/lintian/commands/lintian.pm:27): 27: use v5.20; main::CODE(0x4000e6fd90)(/usr/share/lintian/commands/lintian.pm:27): 27: use v5.20; main::CODE(0x40019ac8d8)(/usr/share/lintian/commands/lintian.pm:28): 28: use warnings; main::CODE(0x40019ac8d8)(/usr/share/lintian/commands/lintian.pm:28): 28: use warnings; main::CODE(0x40019ac8d8)(/usr/share/lintian/commands/lintian.pm:28): 28: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; main::CODE(0x40019dafb8)(/usr/share/lintian/commands/lintian.pm:29): 29: use utf8; main::CODE(0x40019dafb8)(/usr/share/lintian/commands/lintian.pm:29): 29: use utf8; main::CODE(0x40019dafb8)(/usr/share/lintian/commands/lintian.pm:29): 29: use utf8; utf8::import(/usr/share/perl/5.30/utf8.pm:8): 8: $^H |= $utf8::hint_bits; main::CODE(0x40019ea3f8)(/usr/share/lintian/commands/lintian.pm:30): 30: use autodie; autodie::CODE(0x40019f0850)(/usr/share/perl/5.30/autodie.pm:2): 2: use 5.008; autodie::CODE(0x40019f0850)(/usr/share/perl/5.30/autodie.pm:2): 2: use 5.008; autodie::CODE(0x40019f0850)(/usr/share/perl/5.30/autodie.pm:2): 2: use 5.008; autodie::CODE(0x40019f0a90)(/usr/share/perl/5.30/autodie.pm:3): 3: use strict; autodie::CODE(0x40019f0a90)(/usr/share/perl/5.30/autodie.pm:3): 3: use strict; autodie::CODE(0x40019f0a90)(/usr/share/perl/5.30/autodie.pm:3): 3: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; autodie::CODE(0x40019f1018)(/usr/share/perl/5.30/autodie.pm:4): 4: use warnings; autodie::CODE(0x40019f1018)(/usr/share/perl/5.30/autodie.pm:4): 4: use warnings; autodie::CODE(0x40019f1018)(/usr/share/perl/5.30/autodie.pm:4): 4: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; autodie::CODE(0x40019f0d78)(/usr/share/perl/5.30/autodie.pm:6): 6: use parent qw(Fatal); parent::CODE(0x40019f9de8)(/usr/share/perl/5.30/parent.pm:2): 2: use strict; parent::CODE(0x40019f9de8)(/usr/share/perl/5.30/parent.pm:2): 2: use strict; parent::CODE(0x40019f9de8)(/usr/share/perl/5.30/parent.pm:2): 2: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; parent::CODE(0x40019fa1a8)(/usr/share/perl/5.30/parent.pm:21): 21: no strict 'refs'; parent::CODE(0x40019fa1a8)(/usr/share/perl/5.30/parent.pm:21): 21: no strict 'refs'; parent::CODE(0x40019fa1a8)(/usr/share/perl/5.30/parent.pm:21): 21: no strict 'refs'; strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; parent::CODE(0x40019f0d78)(/usr/share/perl/5.30/parent.pm:4): 4: our $VERSION = '0.237'; parent::CODE(0x40019f0d78)(/usr/share/perl/5.30/parent.pm:26): 26: 1; autodie::CODE(0x40019f0d78)(/usr/share/perl/5.30/autodie.pm:6): 6: use parent qw(Fatal); autodie::CODE(0x40019f0d78)(/usr/share/perl/5.30/autodie.pm:6): 6: use parent qw(Fatal); parent::import(/usr/share/perl/5.30/parent.pm:7): 7: my $class = shift; parent::import(/usr/share/perl/5.30/parent.pm:9): 9: my $inheritor = caller(0); parent::import(/usr/share/perl/5.30/parent.pm:11): 11: if ( @_ and $_[0] eq '-norequire' ) { parent::import(/usr/share/perl/5.30/parent.pm:14): 14: for ( my @filename = @_ ) { parent::import(/usr/share/perl/5.30/parent.pm:15): 15: s{::|'}{/}g; parent::import(/usr/share/perl/5.30/parent.pm:16): 16: require "$_.pm"; # dies if the file is not found Fatal::CODE(0x40019fa268)(/usr/share/perl/5.30/Fatal.pm:5): 5: use 5.008; # 5.8.x needed for autodie Fatal::CODE(0x40019fa268)(/usr/share/perl/5.30/Fatal.pm:5): 5: use 5.008; # 5.8.x needed for autodie Fatal::CODE(0x40019fa268)(/usr/share/perl/5.30/Fatal.pm:5): 5: use 5.008; # 5.8.x needed for autodie Fatal::CODE(0x40019fa628)(/usr/share/perl/5.30/Fatal.pm:6): 6: use Carp; Fatal::CODE(0x40019fa628)(/usr/share/perl/5.30/Fatal.pm:6): 6: use Carp; Fatal::CODE(0x40019fa628)(/usr/share/perl/5.30/Fatal.pm:6): 6: use Carp; Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Fatal::CODE(0x4001a05870)(/usr/share/perl/5.30/Fatal.pm:7): 7: use strict; Fatal::CODE(0x4001a05870)(/usr/share/perl/5.30/Fatal.pm:7): 7: use strict; Fatal::CODE(0x4001a05870)(/usr/share/perl/5.30/Fatal.pm:7): 7: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; Fatal::CODE(0x4001a058a0)(/usr/share/perl/5.30/Fatal.pm:8): 8: use warnings; Fatal::CODE(0x4001a058a0)(/usr/share/perl/5.30/Fatal.pm:8): 8: use warnings; Fatal::CODE(0x4001a058a0)(/usr/share/perl/5.30/Fatal.pm:8): 8: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; Fatal::CODE(0x40019f9e48)(/usr/share/perl/5.30/Fatal.pm:9): 9: use Tie::RefHash; # To cache subroutine refs Tie::RefHash::CODE(0x4001a066c8)(/usr/share/perl/5.30/Tie/RefHash.pm:3): 3: use vars qw/$VERSION/; Tie::RefHash::CODE(0x4001a066c8)(/usr/share/perl/5.30/Tie/RefHash.pm:3): 3: use vars qw/$VERSION/; Tie::RefHash::CODE(0x4001a066c8)(/usr/share/perl/5.30/Tie/RefHash.pm:3): 3: use vars qw/$VERSION/; vars::import(/usr/share/perl/5.30/vars.pm:11): 11: my $callpack = caller; vars::import(/usr/share/perl/5.30/vars.pm:12): 12: my (undef, @imports) = @_; vars::import(/usr/share/perl/5.30/vars.pm:13): 13: my ($sym, $ch); vars::import(/usr/share/perl/5.30/vars.pm:14): 14: foreach (@imports) { vars::import(/usr/share/perl/5.30/vars.pm:15): 15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { vars::import(/usr/share/perl/5.30/vars.pm:16): 16: if ($sym =~ /\W/) { vars::import(/usr/share/perl/5.30/vars.pm:28): 28: $sym = "${callpack}::$sym" unless $sym =~ /::/; 29: *$sym = 30: ( $ch eq "\$" ? \$$sym 31: : $ch eq "\@" ? \@$sym 32: : $ch eq "\%" ? \%$sym 33: : $ch eq "\*" ? \*$sym 34: : $ch eq "\&" ? \&$sym vars::import(/usr/share/perl/5.30/vars.pm:35): 35: : do { Tie::RefHash::CODE(0x4001a065c0)(/usr/share/perl/5.30/Tie/RefHash.pm:7): 7: use 5.005; Tie::RefHash::CODE(0x4001a065c0)(/usr/share/perl/5.30/Tie/RefHash.pm:7): 7: use 5.005; Tie::RefHash::CODE(0x4001a065c0)(/usr/share/perl/5.30/Tie/RefHash.pm:7): 7: use 5.005; Tie::RefHash::CODE(0x4001a10380)(/usr/share/perl/5.30/Tie/RefHash.pm:95): 95: use Tie::Hash; Tie::Hash::CODE(0x4001a21808)(/usr/share/perl/5.30/Tie/Hash.pm:190): 190: use Carp; Tie::Hash::CODE(0x4001a21808)(/usr/share/perl/5.30/Tie/Hash.pm:190): 190: use Carp; Tie::Hash::CODE(0x4001a21808)(/usr/share/perl/5.30/Tie/Hash.pm:190): 190: use Carp; Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Tie::Hash::CODE(0x4001a21838)(/usr/share/perl/5.30/Tie/Hash.pm:191): 191: use warnings::register; Tie::Hash::CODE(0x4001a21838)(/usr/share/perl/5.30/Tie/Hash.pm:191): 191: use warnings::register; Tie::Hash::CODE(0x4001a21838)(/usr/share/perl/5.30/Tie/Hash.pm:191): 191: use warnings::register; warnings::register::import(/usr/share/perl/5.30/warnings/register.pm:19): 19: shift; warnings::register::import(/usr/share/perl/5.30/warnings/register.pm:20): 20: my @categories = @_; warnings::register::import(/usr/share/perl/5.30/warnings/register.pm:22): 22: my $package = (caller(0))[0]; warnings::register::import(/usr/share/perl/5.30/warnings/register.pm:23): 23: warnings::register_categories($package); warnings::register_categories(/usr/share/perl/5.30/warnings.pm:492): 492: my @names = @_; warnings::register_categories(/usr/share/perl/5.30/warnings.pm:494): 494: for my $name (@names) { warnings::register_categories(/usr/share/perl/5.30/warnings.pm:495): 495: if (! defined $Bits{$name}) { warnings::register_categories(/usr/share/perl/5.30/warnings.pm:496): 496: $Offsets{$name} = $LAST_BIT; warnings::register_categories(/usr/share/perl/5.30/warnings.pm:497): 497: $Bits{$name} = _mkMask($LAST_BIT++); warnings::_mkMask(/usr/share/perl/5.30/warnings.pm:483): 483: my ($bit) = @_; warnings::_mkMask(/usr/share/perl/5.30/warnings.pm:484): 484: my $mask = ""; warnings::_mkMask(/usr/share/perl/5.30/warnings.pm:486): 486: vec($mask, $bit, 1) = 1; warnings::_mkMask(/usr/share/perl/5.30/warnings.pm:487): 487: return $mask; warnings::register_categories(/usr/share/perl/5.30/warnings.pm:498): 498: $DeadBits{$name} = _mkMask($LAST_BIT++); warnings::_mkMask(/usr/share/perl/5.30/warnings.pm:483): 483: my ($bit) = @_; warnings::_mkMask(/usr/share/perl/5.30/warnings.pm:484): 484: my $mask = ""; warnings::_mkMask(/usr/share/perl/5.30/warnings.pm:486): 486: vec($mask, $bit, 1) = 1; warnings::_mkMask(/usr/share/perl/5.30/warnings.pm:487): 487: return $mask; warnings::register_categories(/usr/share/perl/5.30/warnings.pm:499): 499: if (length($Bits{$name}) > length($Bits{all})) { warnings::register::import(/usr/share/perl/5.30/warnings/register.pm:25): 25: warnings::register_categories($package . "::$_") for @categories; Tie::Hash::CODE(0x4001a10380)(/usr/share/perl/5.30/Tie/Hash.pm:3): 3: our $VERSION = '1.05'; Tie::ExtraHash::CODE(0x4001a10380)(/usr/share/perl/5.30/Tie/Hash.pm:270): 270: 1; Tie::RefHash::CODE(0x4001a10380)(/usr/share/perl/5.30/Tie/RefHash.pm:95): 95: use Tie::Hash; Tie::RefHash::CODE(0x4001a10380)(/usr/share/perl/5.30/Tie/RefHash.pm:95): 95: use Tie::Hash; Tie::RefHash::CODE(0x4001a103b0)(/usr/share/perl/5.30/Tie/RefHash.pm:96): 96: use vars '@ISA'; Tie::RefHash::CODE(0x4001a103b0)(/usr/share/perl/5.30/Tie/RefHash.pm:96): 96: use vars '@ISA'; Tie::RefHash::CODE(0x4001a103b0)(/usr/share/perl/5.30/Tie/RefHash.pm:96): 96: use vars '@ISA'; vars::import(/usr/share/perl/5.30/vars.pm:11): 11: my $callpack = caller; vars::import(/usr/share/perl/5.30/vars.pm:12): 12: my (undef, @imports) = @_; vars::import(/usr/share/perl/5.30/vars.pm:13): 13: my ($sym, $ch); vars::import(/usr/share/perl/5.30/vars.pm:14): 14: foreach (@imports) { vars::import(/usr/share/perl/5.30/vars.pm:15): 15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { vars::import(/usr/share/perl/5.30/vars.pm:16): 16: if ($sym =~ /\W/) { vars::import(/usr/share/perl/5.30/vars.pm:28): 28: $sym = "${callpack}::$sym" unless $sym =~ /::/; 29: *$sym = 30: ( $ch eq "\$" ? \$$sym 31: : $ch eq "\@" ? \@$sym 32: : $ch eq "\%" ? \%$sym 33: : $ch eq "\*" ? \*$sym 34: : $ch eq "\&" ? \&$sym vars::import(/usr/share/perl/5.30/vars.pm:35): 35: : do { Tie::RefHash::CODE(0x4001a10368)(/usr/share/perl/5.30/Tie/RefHash.pm:98): 98: use strict; Tie::RefHash::CODE(0x4001a10368)(/usr/share/perl/5.30/Tie/RefHash.pm:98): 98: use strict; Tie::RefHash::CODE(0x4001a10368)(/usr/share/perl/5.30/Tie/RefHash.pm:98): 98: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; Tie::RefHash::CODE(0x4001a218f8)(/usr/share/perl/5.30/Tie/RefHash.pm:99): 99: use Carp qw/croak/; Tie::RefHash::CODE(0x4001a218f8)(/usr/share/perl/5.30/Tie/RefHash.pm:99): 99: use Carp qw/croak/; Tie::RefHash::CODE(0x4001a218f8)(/usr/share/perl/5.30/Tie/RefHash.pm:99): 99: use Carp qw/croak/; Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:49): 49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:49): 49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Tie::RefHash::CODE(0x4001a25bf8)(/usr/share/perl/5.30/Tie/RefHash.pm:104): 104: use Config (); Tie::RefHash::CODE(0x4001a25bf8)(/usr/share/perl/5.30/Tie/RefHash.pm:104): 104: use Config (); Tie::RefHash::CODE(0x4001a25bf8)(/usr/share/perl/5.30/Tie/RefHash.pm:104): 104: use Config (); Tie::RefHash::CODE(0x4001a10410)(/usr/share/perl/5.30/Tie/RefHash.pm:102): 102: local $@; Tie::RefHash::CODE(0x4001a10410)(/usr/share/perl/5.30/Tie/RefHash.pm:105): 105: my $usethreads = $Config::Config{usethreads}; # && exists $INC{"threads.pm"} Config::FETCH(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:67): 67: my($self, $key) = @_; Config::FETCH(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:70): 70: return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key); Config::fetch_string(/usr/lib/aarch64-linux-gnu/perl/5.30/Config_heavy.pl:1451): 1451: my($self, $key) = @_; Config::fetch_string(/usr/lib/aarch64-linux-gnu/perl/5.30/Config_heavy.pl:1453): 1453: return undef unless $Config_SH_expanded =~ /\n$key=\'(.*?)\'\n/s; Config::fetch_string(/usr/lib/aarch64-linux-gnu/perl/5.30/Config_heavy.pl:1455): 1455: $self->{$key} = $1 eq 'undef' ? undef : $1; Tie::RefHash::CODE(0x4001a10410)(/usr/share/perl/5.30/Tie/RefHash.pm:106): 106: *_HAS_THREADS = $usethreads ? sub () { 1 } : sub () { 0 }; Tie::RefHash::CODE(0x4001a10410)(/usr/share/perl/5.30/Tie/RefHash.pm:107): 107: *_HAS_SCALAR_UTIL = eval { require Scalar::Util; 1 } ? sub () { 1 } : sub () { 0 }; Tie::RefHash::CODE(0x4001a10410)(/usr/share/perl/5.30/Tie/RefHash.pm:107): 107: *_HAS_SCALAR_UTIL = eval { require Scalar::Util; 1 } ? sub () { 1 } : sub () { 0 }; Tie::RefHash::CODE(0x4001a10410)(/usr/share/perl/5.30/Tie/RefHash.pm:107): 107: *_HAS_SCALAR_UTIL = eval { require Scalar::Util; 1 } ? sub () { 1 } : sub () { 0 }; Tie::RefHash::CODE(0x4001a10410)(/usr/share/perl/5.30/Tie/RefHash.pm:108): 108: *_HAS_WEAKEN = defined(&Scalar::Util::weaken) ? sub () { 1 } : sub () { 0 }; Tie::RefHash::CODE(0x4001a326e8)(/usr/share/perl/5.30/Tie/RefHash.pm:114): 114: local $@; Tie::RefHash::CODE(0x4001a326e8)(/usr/share/perl/5.30/Tie/RefHash.pm:116): 116: if ( _HAS_SCALAR_UTIL ) { Tie::RefHash::CODE(0x4001a326e8)(/usr/share/perl/5.30/Tie/RefHash.pm:117): 117: Scalar::Util->import("refaddr"); Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Tie::RefHash::Nestable::CODE(0x4001a530c0)(/usr/share/perl/5.30/Tie/RefHash.pm:267): 267: use vars '@ISA'; Tie::RefHash::Nestable::CODE(0x4001a530c0)(/usr/share/perl/5.30/Tie/RefHash.pm:267): 267: use vars '@ISA'; Tie::RefHash::Nestable::CODE(0x4001a530c0)(/usr/share/perl/5.30/Tie/RefHash.pm:267): 267: use vars '@ISA'; vars::import(/usr/share/perl/5.30/vars.pm:11): 11: my $callpack = caller; vars::import(/usr/share/perl/5.30/vars.pm:12): 12: my (undef, @imports) = @_; vars::import(/usr/share/perl/5.30/vars.pm:13): 13: my ($sym, $ch); vars::import(/usr/share/perl/5.30/vars.pm:14): 14: foreach (@imports) { vars::import(/usr/share/perl/5.30/vars.pm:15): 15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { vars::import(/usr/share/perl/5.30/vars.pm:16): 16: if ($sym =~ /\W/) { vars::import(/usr/share/perl/5.30/vars.pm:28): 28: $sym = "${callpack}::$sym" unless $sym =~ /::/; 29: *$sym = 30: ( $ch eq "\$" ? \$$sym 31: : $ch eq "\@" ? \@$sym 32: : $ch eq "\%" ? \%$sym 33: : $ch eq "\*" ? \*$sym 34: : $ch eq "\&" ? \&$sym vars::import(/usr/share/perl/5.30/vars.pm:35): 35: : do { Tie::RefHash::CODE(0x40019f9e48)(/usr/share/perl/5.30/Tie/RefHash.pm:5): 5: $VERSION = "1.39"; Tie::RefHash::CODE(0x40019f9e48)(/usr/share/perl/5.30/Tie/RefHash.pm:97): 97: @ISA = qw(Tie::Hash); Tie::RefHash::CODE(0x40019f9e48)(/usr/share/perl/5.30/Tie/RefHash.pm:131): 131: my (@thread_object_registry, $count); # used by the CLONE method to rehash the keys after their refaddr changed Tie::RefHash::CODE(0x40019f9e48)(/usr/share/perl/5.30/Tie/RefHash.pm:162): 162: my $storable_format_version = join("/", __PACKAGE__, "0.01"); Tie::RefHash::Nestable::CODE(0x40019f9e48)(/usr/share/perl/5.30/Tie/RefHash.pm:268): 268: @ISA = 'Tie::RefHash'; Tie::RefHash::Nestable::CODE(0x40019f9e48)(/usr/share/perl/5.30/Tie/RefHash.pm:279): 279: 1; Fatal::CODE(0x40019f9e48)(/usr/share/perl/5.30/Fatal.pm:9): 9: use Tie::RefHash; # To cache subroutine refs Fatal::CODE(0x40019f9e48)(/usr/share/perl/5.30/Fatal.pm:9): 9: use Tie::RefHash; # To cache subroutine refs Fatal::CODE(0x4001a058d0)(/usr/share/perl/5.30/Fatal.pm:10): 10: use Config; Fatal::CODE(0x4001a058d0)(/usr/share/perl/5.30/Fatal.pm:10): 10: use Config; Fatal::CODE(0x4001a058d0)(/usr/share/perl/5.30/Fatal.pm:10): 10: use Config; Config::import(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:41): 41: shift; Config::import(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:42): 42: @_ = @Config::EXPORT unless @_; Config::import(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:44): 44: my @funcs = grep $_ ne '%Config', @_; Config::import(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:45): 45: my $export_Config = @funcs < @_ ? 1 : 0; Config::import(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:48): 48: my $callpkg = caller(0); Config::import(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:49): 49: foreach my $func (@funcs) { 50: die qq{"$func" is not exported by the Config module\n} Config::import(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:55): 55: *{"$callpkg\::Config"} = \%Config if $export_Config; Config::import(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:55): 55: *{"$callpkg\::Config"} = \%Config if $export_Config; Config::import(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:56): 56: return; Fatal::CODE(0x4001a05ba0)(/usr/share/perl/5.30/Fatal.pm:11): 11: use Scalar::Util qw(set_prototype); Fatal::CODE(0x4001a05ba0)(/usr/share/perl/5.30/Fatal.pm:11): 11: use Scalar::Util qw(set_prototype); Fatal::CODE(0x4001a05ba0)(/usr/share/perl/5.30/Fatal.pm:11): 11: use Scalar::Util qw(set_prototype); Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Fatal::CODE(0x40019fa6b8)(/usr/share/perl/5.30/Fatal.pm:13): 13: use autodie::Util qw( 14: fill_protos 15: install_subs 16: make_core_trampoline 17: on_end_of_compile_scope autodie::Util::CODE(0x4001a06368)(/usr/share/perl/5.30/autodie/Util.pm:3): 3: use strict; autodie::Util::CODE(0x4001a06368)(/usr/share/perl/5.30/autodie/Util.pm:3): 3: use strict; autodie::Util::CODE(0x4001a06368)(/usr/share/perl/5.30/autodie/Util.pm:3): 3: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; autodie::Util::CODE(0x4001a0fb70)(/usr/share/perl/5.30/autodie/Util.pm:4): 4: use warnings; autodie::Util::CODE(0x4001a0fb70)(/usr/share/perl/5.30/autodie/Util.pm:4): 4: use warnings; autodie::Util::CODE(0x4001a0fb70)(/usr/share/perl/5.30/autodie/Util.pm:4): 4: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; autodie::Util::CODE(0x4001a1b550)(/usr/share/perl/5.30/autodie/Util.pm:6): 6: use Exporter 5.57 qw(import); autodie::Util::CODE(0x4001a1b550)(/usr/share/perl/5.30/autodie/Util.pm:6): 6: use Exporter 5.57 qw(import); autodie::Util::CODE(0x4001a1b550)(/usr/share/perl/5.30/autodie/Util.pm:6): 6: use Exporter 5.57 qw(import); Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:33): 33: *{$callpkg."::import"} = \&import; Exporter::import(/usr/share/perl/5.30/Exporter.pm:33): 33: *{$callpkg."::import"} = \&import; Exporter::import(/usr/share/perl/5.30/Exporter.pm:34): 34: return; autodie::Util::CODE(0x4001a46140)(/usr/share/perl/5.30/autodie/Util.pm:8): 8: use autodie::Scope::GuardStack; autodie::Scope::GuardStack::CODE(0x4001a46188)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:3): 3: use strict; autodie::Scope::GuardStack::CODE(0x4001a46188)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:3): 3: use strict; autodie::Scope::GuardStack::CODE(0x4001a46188)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:3): 3: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; autodie::Scope::GuardStack::CODE(0x4001a15d70)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:4): 4: use warnings; autodie::Scope::GuardStack::CODE(0x4001a15d70)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:4): 4: use warnings; autodie::Scope::GuardStack::CODE(0x4001a15d70)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:4): 4: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; autodie::Scope::GuardStack::CODE(0x4001a261b0)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:6): 6: use autodie::Scope::Guard; autodie::Scope::Guard::CODE(0x4001a10428)(/usr/share/perl/5.30/autodie/Scope/Guard.pm:3): 3: use strict; autodie::Scope::Guard::CODE(0x4001a10428)(/usr/share/perl/5.30/autodie/Scope/Guard.pm:3): 3: use strict; autodie::Scope::Guard::CODE(0x4001a10428)(/usr/share/perl/5.30/autodie/Scope/Guard.pm:3): 3: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; autodie::Scope::Guard::CODE(0x4001a53870)(/usr/share/perl/5.30/autodie/Scope/Guard.pm:4): 4: use warnings; autodie::Scope::Guard::CODE(0x4001a53870)(/usr/share/perl/5.30/autodie/Scope/Guard.pm:4): 4: use warnings; autodie::Scope::Guard::CODE(0x4001a53870)(/usr/share/perl/5.30/autodie/Scope/Guard.pm:4): 4: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; autodie::Scope::Guard::CODE(0x4001a261b0)(/usr/share/perl/5.30/autodie/Scope/Guard.pm:7): 7: our $VERSION = '2.29'; # VERSION autodie::Scope::Guard::CODE(0x4001a261b0)(/usr/share/perl/5.30/autodie/Scope/Guard.pm:24): 24: 1; autodie::Scope::GuardStack::CODE(0x4001a261b0)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:6): 6: use autodie::Scope::Guard; autodie::Scope::GuardStack::CODE(0x4001a261b0)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:6): 6: use autodie::Scope::Guard; autodie::Scope::GuardStack::CODE(0x4001a46140)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:9): 9: our $VERSION = '2.29'; # VERSION autodie::Scope::GuardStack::CODE(0x4001a46140)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:11): 11: my $H_KEY_STEM = __PACKAGE__ . '/guard'; autodie::Scope::GuardStack::CODE(0x4001a46140)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:12): 12: my $COUNTER = 0; autodie::Scope::GuardStack::CODE(0x4001a46140)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:75): 75: 1; autodie::Util::CODE(0x4001a46140)(/usr/share/perl/5.30/autodie/Util.pm:8): 8: use autodie::Scope::GuardStack; autodie::Util::CODE(0x4001a46140)(/usr/share/perl/5.30/autodie/Util.pm:8): 8: use autodie::Scope::GuardStack; autodie::Util::CODE(0x4000e3d2e8)(/usr/share/perl/5.30/autodie/Util.pm:130): 130: no strict qw(refs); ## no critic autodie::Util::CODE(0x4000e3d2e8)(/usr/share/perl/5.30/autodie/Util.pm:130): 130: no strict qw(refs); ## no critic autodie::Util::CODE(0x4000e3d2e8)(/usr/share/perl/5.30/autodie/Util.pm:130): 130: no strict qw(refs); ## no critic strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; autodie::Util::CODE(0x4000e3d8a0)(/usr/share/perl/5.30/autodie/Util.pm:143): 143: no warnings qw(once); autodie::Util::CODE(0x4000e3d8a0)(/usr/share/perl/5.30/autodie/Util.pm:143): 143: no warnings qw(once); autodie::Util::CODE(0x4000e3d8a0)(/usr/share/perl/5.30/autodie/Util.pm:143): 143: no warnings qw(once); warnings::unimport(/usr/share/perl/5.30/warnings.pm:347): 347: shift; warnings::unimport(/usr/share/perl/5.30/warnings.pm:349): 349: my $catmask ; warnings::unimport(/usr/share/perl/5.30/warnings.pm:350): 350: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::unimport(/usr/share/perl/5.30/warnings.pm:353): 353: push @_, 'all' if !@_ || @_==1 && $_[0] eq 'FATAL'; warnings::unimport(/usr/share/perl/5.30/warnings.pm:355): 355: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:282): 282: if ($bits eq "") { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:287): 287: my $a = vec($bits, $Offsets{all} >> 1, 2); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:288): 288: $a |= $a << 2; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:289): 289: $a |= $a << 4; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:290): 290: $bits .= chr($a) x ($want_len - $len); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::unimport(/usr/share/perl/5.30/warnings.pm:356): 356: foreach my $word ( @_ ) { warnings::unimport(/usr/share/perl/5.30/warnings.pm:357): 357: if ($word eq 'FATAL') { warnings::unimport(/usr/share/perl/5.30/warnings.pm:361): 361: $mask = ~(~$mask | $catmask | $DeadBits{$word}); warnings::unimport(/usr/share/perl/5.30/warnings.pm:367): 367: ${^WARNING_BITS} = $mask ; autodie::Util::CODE(0x4000e3d6d8)(/usr/share/perl/5.30/autodie/Util.pm:145): 145: use warnings qw(once); autodie::Util::CODE(0x4000e3d6d8)(/usr/share/perl/5.30/autodie/Util.pm:145): 145: use warnings qw(once); autodie::Util::CODE(0x4000e3d6d8)(/usr/share/perl/5.30/autodie/Util.pm:145): 145: use warnings qw(once); warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; autodie::Util::CODE(0x40019fa6b8)(/usr/share/perl/5.30/autodie/Util.pm:10): 10: our @EXPORT_OK = qw( 11: fill_protos 12: install_subs 13: make_core_trampoline 14: on_end_of_compile_scope 15: ); autodie::Util::CODE(0x40019fa6b8)(/usr/share/perl/5.30/autodie/Util.pm:17): 17: our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg:Version autodie::Util::CODE(0x40019fa6b8)(/usr/share/perl/5.30/autodie/Util.pm:22): 22: my $H_STACK_KEY = __PACKAGE__ . '/stack'; autodie::Util::CODE(0x40019fa6b8)(/usr/share/perl/5.30/autodie/Util.pm:165): 165: 1; Fatal::CODE(0x40019fa6b8)(/usr/share/perl/5.30/Fatal.pm:18): 18: ); Fatal::CODE(0x40019fa6b8)(/usr/share/perl/5.30/Fatal.pm:18): 18: ); Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:49): 49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:49): 49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Fatal::CODE(0x4001a0f978)(/usr/share/perl/5.30/Fatal.pm:20): 20: use constant PERL510 => ( $] >= 5.010 ); Fatal::CODE(0x4001a0f978)(/usr/share/perl/5.30/Fatal.pm:20): 20: use constant PERL510 => ( $] >= 5.010 ); Fatal::CODE(0x4001a0f978)(/usr/share/perl/5.30/Fatal.pm:20): 20: use constant PERL510 => ( $] >= 5.010 ); constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a05e70)(/usr/share/perl/5.30/Fatal.pm:22): 22: use constant LEXICAL_TAG => q{:lexical}; Fatal::CODE(0x4001a05e70)(/usr/share/perl/5.30/Fatal.pm:22): 22: use constant LEXICAL_TAG => q{:lexical}; Fatal::CODE(0x4001a05e70)(/usr/share/perl/5.30/Fatal.pm:22): 22: use constant LEXICAL_TAG => q{:lexical}; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a05c18)(/usr/share/perl/5.30/Fatal.pm:23): 23: use constant VOID_TAG => q{:void}; Fatal::CODE(0x4001a05c18)(/usr/share/perl/5.30/Fatal.pm:23): 23: use constant VOID_TAG => q{:void}; Fatal::CODE(0x4001a05c18)(/usr/share/perl/5.30/Fatal.pm:23): 23: use constant VOID_TAG => q{:void}; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a05c90)(/usr/share/perl/5.30/Fatal.pm:24): 24: use constant INSIST_TAG => q{!}; Fatal::CODE(0x4001a05c90)(/usr/share/perl/5.30/Fatal.pm:24): 24: use constant INSIST_TAG => q{!}; Fatal::CODE(0x4001a05c90)(/usr/share/perl/5.30/Fatal.pm:24): 24: use constant INSIST_TAG => q{!}; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a59b48)(/usr/share/perl/5.30/Fatal.pm:27): 27: use constant CACHE_AUTODIE_LEAK_GUARD => 0; Fatal::CODE(0x4001a59b48)(/usr/share/perl/5.30/Fatal.pm:27): 27: use constant CACHE_AUTODIE_LEAK_GUARD => 0; Fatal::CODE(0x4001a59b48)(/usr/share/perl/5.30/Fatal.pm:27): 27: use constant CACHE_AUTODIE_LEAK_GUARD => 0; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4000e3d618)(/usr/share/perl/5.30/Fatal.pm:28): 28: use constant CACHE_FATAL_WRAPPER => 1; Fatal::CODE(0x4000e3d618)(/usr/share/perl/5.30/Fatal.pm:28): 28: use constant CACHE_FATAL_WRAPPER => 1; Fatal::CODE(0x4000e3d618)(/usr/share/perl/5.30/Fatal.pm:28): 28: use constant CACHE_FATAL_WRAPPER => 1; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a05888)(/usr/share/perl/5.30/Fatal.pm:29): 29: use constant CACHE_FATAL_VOID => 2; Fatal::CODE(0x4001a05888)(/usr/share/perl/5.30/Fatal.pm:29): 29: use constant CACHE_FATAL_VOID => 2; Fatal::CODE(0x4001a05888)(/usr/share/perl/5.30/Fatal.pm:29): 29: use constant CACHE_FATAL_VOID => 2; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a32880)(/usr/share/perl/5.30/Fatal.pm:32): 32: use constant ERROR_NOARGS => 'Cannot use lexical %s with no arguments'; Fatal::CODE(0x4001a32880)(/usr/share/perl/5.30/Fatal.pm:32): 32: use constant ERROR_NOARGS => 'Cannot use lexical %s with no arguments'; Fatal::CODE(0x4001a32880)(/usr/share/perl/5.30/Fatal.pm:32): 32: use constant ERROR_NOARGS => 'Cannot use lexical %s with no arguments'; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a46620)(/usr/share/perl/5.30/Fatal.pm:33): 33: use constant ERROR_VOID_LEX => VOID_TAG.' cannot be used with lexical scope'; Fatal::CODE(0x4001a46620)(/usr/share/perl/5.30/Fatal.pm:33): 33: use constant ERROR_VOID_LEX => VOID_TAG.' cannot be used with lexical scope'; Fatal::CODE(0x4001a46620)(/usr/share/perl/5.30/Fatal.pm:33): 33: use constant ERROR_VOID_LEX => VOID_TAG.' cannot be used with lexical scope'; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a65c18)(/usr/share/perl/5.30/Fatal.pm:34): 34: use constant ERROR_LEX_FIRST => LEXICAL_TAG.' must be used as first argument'; Fatal::CODE(0x4001a65c18)(/usr/share/perl/5.30/Fatal.pm:34): 34: use constant ERROR_LEX_FIRST => LEXICAL_TAG.' must be used as first argument'; Fatal::CODE(0x4001a65c18)(/usr/share/perl/5.30/Fatal.pm:34): 34: use constant ERROR_LEX_FIRST => LEXICAL_TAG.' must be used as first argument'; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4000e3d768)(/usr/share/perl/5.30/Fatal.pm:35): 35: use constant ERROR_NO_LEX => "no %s can only start with ".LEXICAL_TAG; Fatal::CODE(0x4000e3d768)(/usr/share/perl/5.30/Fatal.pm:35): 35: use constant ERROR_NO_LEX => "no %s can only start with ".LEXICAL_TAG; Fatal::CODE(0x4000e3d768)(/usr/share/perl/5.30/Fatal.pm:35): 35: use constant ERROR_NO_LEX => "no %s can only start with ".LEXICAL_TAG; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4000e3dac8)(/usr/share/perl/5.30/Fatal.pm:36): 36: use constant ERROR_BADNAME => "Bad subroutine name for %s: %s"; Fatal::CODE(0x4000e3dac8)(/usr/share/perl/5.30/Fatal.pm:36): 36: use constant ERROR_BADNAME => "Bad subroutine name for %s: %s"; Fatal::CODE(0x4000e3dac8)(/usr/share/perl/5.30/Fatal.pm:36): 36: use constant ERROR_BADNAME => "Bad subroutine name for %s: %s"; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4000e3d960)(/usr/share/perl/5.30/Fatal.pm:37): 37: use constant ERROR_NOTSUB => "%s is not a Perl subroutine"; Fatal::CODE(0x4000e3d960)(/usr/share/perl/5.30/Fatal.pm:37): 37: use constant ERROR_NOTSUB => "%s is not a Perl subroutine"; Fatal::CODE(0x4000e3d960)(/usr/share/perl/5.30/Fatal.pm:37): 37: use constant ERROR_NOTSUB => "%s is not a Perl subroutine"; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4000e3d4c8)(/usr/share/perl/5.30/Fatal.pm:38): 38: use constant ERROR_NOT_BUILT => "%s is neither a builtin, nor a Perl subroutine"; Fatal::CODE(0x4000e3d4c8)(/usr/share/perl/5.30/Fatal.pm:38): 38: use constant ERROR_NOT_BUILT => "%s is neither a builtin, nor a Perl subroutine"; Fatal::CODE(0x4000e3d4c8)(/usr/share/perl/5.30/Fatal.pm:38): 38: use constant ERROR_NOT_BUILT => "%s is neither a builtin, nor a Perl subroutine"; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4000e3d468)(/usr/share/perl/5.30/Fatal.pm:39): 39: use constant ERROR_NOHINTS => "No user hints defined for %s"; Fatal::CODE(0x4000e3d468)(/usr/share/perl/5.30/Fatal.pm:39): 39: use constant ERROR_NOHINTS => "No user hints defined for %s"; Fatal::CODE(0x4000e3d468)(/usr/share/perl/5.30/Fatal.pm:39): 39: use constant ERROR_NOHINTS => "No user hints defined for %s"; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a0faf8)(/usr/share/perl/5.30/Fatal.pm:41): 41: use constant ERROR_CANT_OVERRIDE => "Cannot make the non-overridable builtin %s fatal"; Fatal::CODE(0x4001a0faf8)(/usr/share/perl/5.30/Fatal.pm:41): 41: use constant ERROR_CANT_OVERRIDE => "Cannot make the non-overridable builtin %s fatal"; Fatal::CODE(0x4001a0faf8)(/usr/share/perl/5.30/Fatal.pm:41): 41: use constant ERROR_CANT_OVERRIDE => "Cannot make the non-overridable builtin %s fatal"; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a53570)(/usr/share/perl/5.30/Fatal.pm:43): 43: use constant ERROR_NO_IPC_SYS_SIMPLE => "IPC::System::Simple required for Fatalised/autodying system()"; Fatal::CODE(0x4001a53570)(/usr/share/perl/5.30/Fatal.pm:43): 43: use constant ERROR_NO_IPC_SYS_SIMPLE => "IPC::System::Simple required for Fatalised/autodying system()"; Fatal::CODE(0x4001a53570)(/usr/share/perl/5.30/Fatal.pm:43): 43: use constant ERROR_NO_IPC_SYS_SIMPLE => "IPC::System::Simple required for Fatalised/autodying system()"; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a257c0)(/usr/share/perl/5.30/Fatal.pm:45): 45: use constant ERROR_IPC_SYS_SIMPLE_OLD => "IPC::System::Simple version %f required for Fatalised/autodying system(). We only have version %f"; Fatal::CODE(0x4001a257c0)(/usr/share/perl/5.30/Fatal.pm:45): 45: use constant ERROR_IPC_SYS_SIMPLE_OLD => "IPC::System::Simple version %f required for Fatalised/autodying system(). We only have version %f"; Fatal::CODE(0x4001a257c0)(/usr/share/perl/5.30/Fatal.pm:45): 45: use constant ERROR_IPC_SYS_SIMPLE_OLD => "IPC::System::Simple version %f required for Fatalised/autodying system(). We only have version %f"; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4000e3d708)(/usr/share/perl/5.30/Fatal.pm:47): 47: use constant ERROR_AUTODIE_CONFLICT => q{"no autodie '%s'" is not allowed while "use Fatal '%s'" is in effect}; Fatal::CODE(0x4000e3d708)(/usr/share/perl/5.30/Fatal.pm:47): 47: use constant ERROR_AUTODIE_CONFLICT => q{"no autodie '%s'" is not allowed while "use Fatal '%s'" is in effect}; Fatal::CODE(0x4000e3d708)(/usr/share/perl/5.30/Fatal.pm:47): 47: use constant ERROR_AUTODIE_CONFLICT => q{"no autodie '%s'" is not allowed while "use Fatal '%s'" is in effect}; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a85bb0)(/usr/share/perl/5.30/Fatal.pm:49): 49: use constant ERROR_FATAL_CONFLICT => q{"use Fatal '%s'" is not allowed while "no autodie '%s'" is in effect}; Fatal::CODE(0x4001a85bb0)(/usr/share/perl/5.30/Fatal.pm:49): 49: use constant ERROR_FATAL_CONFLICT => q{"use Fatal '%s'" is not allowed while "no autodie '%s'" is in effect}; Fatal::CODE(0x4001a85bb0)(/usr/share/perl/5.30/Fatal.pm:49): 49: use constant ERROR_FATAL_CONFLICT => q{"use Fatal '%s'" is not allowed while "no autodie '%s'" is in effect}; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a85910)(/usr/share/perl/5.30/Fatal.pm:51): 51: use constant ERROR_58_HINTS => q{Non-subroutine %s hints for %s are not supported under Perl 5.8.x}; Fatal::CODE(0x4001a85910)(/usr/share/perl/5.30/Fatal.pm:51): 51: use constant ERROR_58_HINTS => q{Non-subroutine %s hints for %s are not supported under Perl 5.8.x}; Fatal::CODE(0x4001a85910)(/usr/share/perl/5.30/Fatal.pm:51): 51: use constant ERROR_58_HINTS => q{Non-subroutine %s hints for %s are not supported under Perl 5.8.x}; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001a1b9d0)(/usr/share/perl/5.30/Fatal.pm:56): 56: use constant MIN_IPC_SYS_SIMPLE_VER => 0.12; Fatal::CODE(0x4001a1b9d0)(/usr/share/perl/5.30/Fatal.pm:56): 56: use constant MIN_IPC_SYS_SIMPLE_VER => 0.12; Fatal::CODE(0x4001a1b9d0)(/usr/share/perl/5.30/Fatal.pm:56): 56: use constant MIN_IPC_SYS_SIMPLE_VER => 0.12; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; Fatal::CODE(0x4001ab5220)(/usr/share/perl/5.30/Fatal.pm:585): 585: no strict 'refs'; Fatal::CODE(0x4001ab5220)(/usr/share/perl/5.30/Fatal.pm:585): 585: no strict 'refs'; Fatal::CODE(0x4001ab5220)(/usr/share/perl/5.30/Fatal.pm:585): 585: no strict 'refs'; strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; Fatal::CODE(0x4001b2d5b0)(/usr/share/perl/5.30/Fatal.pm:1655): 1655: no strict 'refs'; ## no critic # to avoid: Can't use string (...) as a symbol ref ... Fatal::CODE(0x4001b2d5b0)(/usr/share/perl/5.30/Fatal.pm:1655): 1655: no strict 'refs'; ## no critic # to avoid: Can't use string (...) as a symbol ref ... Fatal::CODE(0x4001b2d5b0)(/usr/share/perl/5.30/Fatal.pm:1655): 1655: no strict 'refs'; ## no critic # to avoid: Can't use string (...) as a symbol ref ... strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; parent::import(/usr/share/perl/5.30/Fatal.pm:58): 58: our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg::Version parent::import(/usr/share/perl/5.30/Fatal.pm:60): 60: our $Debug ||= 0; parent::import(/usr/share/perl/5.30/Fatal.pm:67): 67: our %_EWOULDBLOCK = ( 68: MSWin32 => 33, 69: ); parent::import(/usr/share/perl/5.30/Fatal.pm:71): 71: $Carp::CarpInternal{'Fatal'} = 1; parent::import(/usr/share/perl/5.30/Fatal.pm:72): 72: $Carp::CarpInternal{'autodie'} = 1; parent::import(/usr/share/perl/5.30/Fatal.pm:73): 73: $Carp::CarpInternal{'autodie::exception'} = 1; parent::import(/usr/share/perl/5.30/Fatal.pm:77): 77: my $try_EAGAIN = ($^O eq 'linux' and $Config{archname} =~ /hppa|parisc/) ? 1 : 0; Config::FETCH(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:67): 67: my($self, $key) = @_; Config::FETCH(/usr/lib/aarch64-linux-gnu/perl/5.30/Config.pm:70): 70: return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key); parent::import(/usr/share/perl/5.30/Fatal.pm:82): 82: my %TAGS = ( 83: ':io' => [qw(:dbm :file :filesys :ipc :socket 84: read seek sysread syswrite sysseek )], 85: ':dbm' => [qw(dbmopen dbmclose)], 86: ':file' => [qw(open close flock sysopen fcntl binmode 87: ioctl truncate)], 88: ':filesys' => [qw(opendir closedir chdir link unlink rename mkdir 89: symlink rmdir readlink chmod chown utime)], 90: ':ipc' => [qw(:msg :semaphore :shm pipe kill)], 91: ':msg' => [qw(msgctl msgget msgrcv msgsnd)], 92: ':threads' => [qw(fork)], 93: ':semaphore'=>[qw(semctl semget semop)], 94: ':shm' => [qw(shmctl shmget shmread)], 95: ':system' => [qw(system exec)], parent::import(/usr/share/perl/5.30/Fatal.pm:179): 179: my %seen; 180: my @all = grep { parent::import(/usr/share/perl/5.30/Fatal.pm:179): 179: my %seen; 180: my @all = grep { parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:182): 182: } map { @{$_} } values %TAGS; parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:181): 181: !/^:/ && !$seen{$_}++ parent::import(/usr/share/perl/5.30/Fatal.pm:183): 183: $TAGS{':all'} = \@all; parent::import(/usr/share/perl/5.30/Fatal.pm:189): 189: my %Use_defined_or; parent::import(/usr/share/perl/5.30/Fatal.pm:194): 194: @Use_defined_or{qw( 195: CORE::fork 196: CORE::recv 197: CORE::send 198: CORE::open 199: CORE::fileno 200: CORE::read 201: CORE::readlink 202: CORE::sysread 203: CORE::syswrite 204: CORE::sysseek 205: CORE::umask 206: )} = (); parent::import(/usr/share/perl/5.30/Fatal.pm:212): 212: my %Returns_num_things_changed = ( 213: 'CORE::chmod' => 1, 214: 'CORE::chown' => 2, 215: 'CORE::kill' => 1, # TODO: Could this return anything on negative args? 216: 'CORE::unlink' => 0, 217: 'CORE::utime' => 2, 218: ); parent::import(/usr/share/perl/5.30/Fatal.pm:222): 222: my %Retval_action = ( 223: "CORE::open" => q{ parent::import(/usr/share/perl/5.30/Fatal.pm:267): 267: my %reusable_builtins; parent::import(/usr/share/perl/5.30/Fatal.pm:278): 278: @reusable_builtins{qw( 279: CORE::fork 280: CORE::kill 281: CORE::truncate 282: CORE::chdir 283: CORE::link 284: CORE::unlink 285: CORE::rename 286: CORE::mkdir 287: CORE::symlink 288: CORE::rmdir 289: CORE::readlink 290: CORE::umask 291: CORE::chmod 292: CORE::chown 293: CORE::utime 294: CORE::msgctl 295: CORE::msgget 296: CORE::msgrcv 297: CORE::msgsnd 298: CORE::semctl 299: CORE::semget 300: CORE::semop 301: CORE::shmctl 302: CORE::shmget 303: CORE::shmread 304: CORE::exec 305: CORE::system 306: )} = (); parent::import(/usr/share/perl/5.30/Fatal.pm:313): 313: my %Cached_fatalised_sub = (); parent::import(/usr/share/perl/5.30/Fatal.pm:321): 321: my %Package_Fatal = (); parent::import(/usr/share/perl/5.30/Fatal.pm:326): 326: my %Original_user_sub = (); parent::import(/usr/share/perl/5.30/Fatal.pm:332): 332: my %Is_fatalised_sub = (); parent::import(/usr/share/perl/5.30/Fatal.pm:333): 333: tie %Is_fatalised_sub, 'Tie::RefHash'; Tie::RefHash::TIEHASH(/usr/share/perl/5.30/Tie/RefHash.pm:134): 134: my $c = shift; Tie::RefHash::TIEHASH(/usr/share/perl/5.30/Tie/RefHash.pm:135): 135: my $s = []; Tie::RefHash::TIEHASH(/usr/share/perl/5.30/Tie/RefHash.pm:136): 136: bless $s, $c; Tie::RefHash::TIEHASH(/usr/share/perl/5.30/Tie/RefHash.pm:137): 137: while (@_) { Tie::RefHash::TIEHASH(/usr/share/perl/5.30/Tie/RefHash.pm:141): 141: if (_HAS_THREADS ) { Tie::RefHash::TIEHASH(/usr/share/perl/5.30/Tie/RefHash.pm:143): 143: if ( _HAS_WEAKEN ) { Tie::RefHash::TIEHASH(/usr/share/perl/5.30/Tie/RefHash.pm:145): 145: push @thread_object_registry, $s; Tie::RefHash::TIEHASH(/usr/share/perl/5.30/Tie/RefHash.pm:147): 147: Scalar::Util::weaken( $thread_object_registry[-1] ); Tie::RefHash::TIEHASH(/usr/share/perl/5.30/Tie/RefHash.pm:149): 149: if ( ++$count > 1000 ) { Tie::RefHash::TIEHASH(/usr/share/perl/5.30/Tie/RefHash.pm:159): 159: return $s; parent::import(/usr/share/perl/5.30/Fatal.pm:338): 338: my %Trampoline_cache; parent::import(/usr/share/perl/5.30/Fatal.pm:342): 342: my %CORE_prototype_cache; parent::import(/usr/share/perl/5.30/Fatal.pm:348): 348: my $PACKAGE = __PACKAGE__; parent::import(/usr/share/perl/5.30/Fatal.pm:349): 349: my $NO_PACKAGE = "no $PACKAGE"; # Used to detect 'no autodie' parent::import(/usr/share/perl/5.30/Fatal.pm:754): 754: sub write_invocation { parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:692): 692: 'all' => [map { "CORE::$_" } @{$TAGS{':all'}}], 693: ); parent::import(/usr/share/perl/5.30/Fatal.pm:1480): 1480: sub _make_leak_guard { parent::import(/usr/share/perl/5.30/Fatal.pm:1436): 1436: my %exception_class_for; parent::import(/usr/share/perl/5.30/Fatal.pm:1437): 1437: my %class_loaded; parent::import(/usr/share/perl/5.30/Fatal.pm:1685): 1685: 1; parent::import(/usr/share/perl/5.30/parent.pm:21): 21: no strict 'refs'; parent::import(/usr/share/perl/5.30/parent.pm:22): 22: push @{"$inheritor\::ISA"}, @_; # dies if a loop is detected parent::import(/usr/share/perl/5.30/parent.pm:22): 22: push @{"$inheritor\::ISA"}, @_; # dies if a loop is detected autodie::CODE(0x40019fa4d8)(/usr/share/perl/5.30/autodie.pm:12): 12: our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg::Version autodie::CODE(0x4001a86138)(/usr/share/perl/5.30/autodie.pm:15): 15: use constant ERROR_WRONG_FATAL => q{ 16: Incorrect version of Fatal.pm loaded by autodie. autodie::CODE(0x4001a86138)(/usr/share/perl/5.30/autodie.pm:30): 30: }; autodie::CODE(0x4001a86138)(/usr/share/perl/5.30/autodie.pm:30): 30: }; constant::import(/usr/share/perl/5.30/constant.pm:56): 56: my $class = shift; constant::import(/usr/share/perl/5.30/constant.pm:57): 57: return unless @_; # Ignore 'use constant;' constant::import(/usr/share/perl/5.30/constant.pm:58): 58: my $constants; constant::import(/usr/share/perl/5.30/constant.pm:59): 59: my $multiple = ref $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:60): 60: my $caller = caller; constant::import(/usr/share/perl/5.30/constant.pm:61): 61: my $flush_mro; constant::import(/usr/share/perl/5.30/constant.pm:62): 62: my $symtab; constant::import(/usr/share/perl/5.30/constant.pm:64): 64: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:66): 66: $symtab = \%{$caller . '::'}; constant::import(/usr/share/perl/5.30/constant.pm:69): 69: if ( $multiple ) { constant::import(/usr/share/perl/5.30/constant.pm:76): 76: unless (defined $_[0]) { constant::import(/usr/share/perl/5.30/constant.pm:80): 80: $constants->{+shift} = undef; constant::import(/usr/share/perl/5.30/constant.pm:83): 83: foreach my $name ( keys %$constants ) { constant::import(/usr/share/perl/5.30/constant.pm:84): 84: my $pkg; constant::import(/usr/share/perl/5.30/constant.pm:85): 85: my $symtab = $symtab; constant::import(/usr/share/perl/5.30/constant.pm:86): 86: my $orig_name = $name; constant::import(/usr/share/perl/5.30/constant.pm:87): 87: if ($name =~ s/(.*)(?:::|')(?=.)//s) { constant::import(/usr/share/perl/5.30/constant.pm:95): 95: $pkg = $caller; constant::import(/usr/share/perl/5.30/constant.pm:99): 99: if ($name =~ $normal_constant_name and !$forbidden{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:141): 141: no strict 'refs'; constant::import(/usr/share/perl/5.30/constant.pm:142): 142: my $full_name = "${pkg}::$name"; constant::import(/usr/share/perl/5.30/constant.pm:143): 143: $declared{$full_name}++; constant::import(/usr/share/perl/5.30/constant.pm:144): 144: if ($multiple || @_ == 1) { constant::import(/usr/share/perl/5.30/constant.pm:145): 145: my $scalar = $multiple ? $constants->{$orig_name} : $_[0]; constant::import(/usr/share/perl/5.30/constant.pm:147): 147: if (_DOWNGRADE) { # for 5.8 to 5.14 constant::import(/usr/share/perl/5.30/constant.pm:156): 156: if (_CAN_PCS) { constant::import(/usr/share/perl/5.30/constant.pm:164): 164: Internals::SvREADONLY($scalar, 1); constant::import(/usr/share/perl/5.30/constant.pm:165): 165: if (!exists $symtab->{$name}) { constant::import(/usr/share/perl/5.30/constant.pm:166): 166: $symtab->{$name} = \$scalar; constant::import(/usr/share/perl/5.30/constant.pm:167): 167: ++$flush_mro->{$pkg}; constant::import(/usr/share/perl/5.30/constant.pm:197): 197: if (_CAN_PCS && $flush_mro) { constant::import(/usr/share/perl/5.30/constant.pm:198): 198: mro::method_changed_in($_) for keys %$flush_mro; autodie::CODE(0x4001a860f0)(/usr/share/perl/5.30/autodie.pm:41): 41: if (defined($Fatal::VERSION) and defined($VERSION) and $Fatal::VERSION ne $VERSION) { autodie::CODE(0x40019ea3f8)(/usr/share/perl/5.30/autodie.pm:7): 7: our $VERSION; autodie::CODE(0x40019ea3f8)(/usr/share/perl/5.30/autodie.pm:67): 67: 1; main::CODE(0x40019ea3f8)(/usr/share/lintian/commands/lintian.pm:30): 30: use autodie; main::CODE(0x40019ea3f8)(/usr/share/lintian/commands/lintian.pm:30): 30: use autodie; autodie::import(/usr/share/perl/5.30/autodie.pm:58): 58: splice(@_,1,0,Fatal::LEXICAL_TAG); autodie::import(/usr/share/perl/5.30/autodie.pm:59): 59: goto &Fatal::import; Fatal::import(/usr/share/perl/5.30/Fatal.pm:355): 355: my $class = shift(@_); Fatal::import(/usr/share/perl/5.30/Fatal.pm:356): 356: my @original_args = @_; Fatal::import(/usr/share/perl/5.30/Fatal.pm:357): 357: my $void = 0; Fatal::import(/usr/share/perl/5.30/Fatal.pm:358): 358: my $lexical = 0; Fatal::import(/usr/share/perl/5.30/Fatal.pm:359): 359: my $insist_hints = 0; Fatal::import(/usr/share/perl/5.30/Fatal.pm:361): 361: my ($pkg, $filename) = caller(); Fatal::import(/usr/share/perl/5.30/Fatal.pm:363): 363: @_ or return; # 'use Fatal' is a no-op. Fatal::import(/usr/share/perl/5.30/Fatal.pm:368): 368: if ($_[0] eq LEXICAL_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:369): 369: $lexical = 1; Fatal::import(/usr/share/perl/5.30/Fatal.pm:370): 370: shift @_; Fatal::import(/usr/share/perl/5.30/Fatal.pm:377): 377: if ($class ne 'autodie' and not $class->isa('autodie')) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:410): 410: if (@_ == 0) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:411): 411: push(@_, ':default'); Fatal::import(/usr/share/perl/5.30/Fatal.pm:415): 415: if ( grep { $_ eq VOID_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:415): 415: if ( grep { $_ eq VOID_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:420): 420: if ( grep { $_ eq LEXICAL_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:420): 420: if ( grep { $_ eq LEXICAL_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:425): 425: my @fatalise_these = @_; Fatal::import(/usr/share/perl/5.30/Fatal.pm:428): 428: my %unload_later; Fatal::import(/usr/share/perl/5.30/Fatal.pm:430): 430: my %install_subs; Fatal::import(/usr/share/perl/5.30/Fatal.pm:446): 446: for my $func ($class->_translate_import_args(@fatalise_these)) { Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:603): 603: my ($class, @args) = @_; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:604): 604: my @result; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:605): 605: my %seen; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:607): 607: if (@args < 2) { Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:610): 610: return unless @args; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:613): 613: return @args unless exists($TAGS{$args[0]}); Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:707): 707: if (not exists $TAGS{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:716): 716: if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:725): 725: my %seen = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:726): 726: my @taglist = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:728): 728: for my $item (@to_process) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:734): 734: my $expanded = $class->_expand_tag($item); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:707): 707: if (not exists $TAGS{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:716): 716: if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:725): 725: my %seen = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:726): 726: my @taglist = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:728): 728: for my $item (@to_process) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:734): 734: my $expanded = $class->_expand_tag($item); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:707): 707: if (not exists $TAGS{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:716): 716: if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:725): 725: my %seen = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:726): 726: my @taglist = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:728): 728: for my $item (@to_process) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:743): 743: $tag_cache{$tag} = \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:745): 745: return \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:734): 734: my $expanded = $class->_expand_tag($item); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:707): 707: if (not exists $TAGS{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:716): 716: if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:725): 725: my %seen = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:726): 726: my @taglist = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:728): 728: for my $item (@to_process) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:743): 743: $tag_cache{$tag} = \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:745): 745: return \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:734): 734: my $expanded = $class->_expand_tag($item); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:707): 707: if (not exists $TAGS{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:716): 716: if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:725): 725: my %seen = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:726): 726: my @taglist = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:728): 728: for my $item (@to_process) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:743): 743: $tag_cache{$tag} = \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:745): 745: return \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:734): 734: my $expanded = $class->_expand_tag($item); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:707): 707: if (not exists $TAGS{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:716): 716: if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:725): 725: my %seen = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:726): 726: my @taglist = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:728): 728: for my $item (@to_process) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:734): 734: my $expanded = $class->_expand_tag($item); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:707): 707: if (not exists $TAGS{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:716): 716: if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:725): 725: my %seen = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:726): 726: my @taglist = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:728): 728: for my $item (@to_process) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:743): 743: $tag_cache{$tag} = \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:745): 745: return \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:734): 734: my $expanded = $class->_expand_tag($item); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:707): 707: if (not exists $TAGS{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:716): 716: if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:725): 725: my %seen = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:726): 726: my @taglist = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:728): 728: for my $item (@to_process) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:743): 743: $tag_cache{$tag} = \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:745): 745: return \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:734): 734: my $expanded = $class->_expand_tag($item); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:707): 707: if (not exists $TAGS{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:716): 716: if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:725): 725: my %seen = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:726): 726: my @taglist = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:728): 728: for my $item (@to_process) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:743): 743: $tag_cache{$tag} = \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:745): 745: return \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:743): 743: $tag_cache{$tag} = \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:745): 745: return \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:734): 734: my $expanded = $class->_expand_tag($item); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:707): 707: if (not exists $TAGS{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:716): 716: if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:725): 725: my %seen = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:726): 726: my @taglist = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:728): 728: for my $item (@to_process) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:743): 743: $tag_cache{$tag} = \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:745): 745: return \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:743): 743: $tag_cache{$tag} = \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:745): 745: return \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:734): 734: my $expanded = $class->_expand_tag($item); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:707): 707: if (not exists $TAGS{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:711): 711: my @to_process = @{$TAGS{$tag}}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:716): 716: if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:725): 725: my %seen = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:726): 726: my @taglist = (); Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:728): 728: for my $item (@to_process) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:731): 731: if (substr($item, 0, 1) eq ':') { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:737): 737: my $subname = "CORE::$item"; 738: push @taglist, $subname Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:739): 739: unless $seen{$subname}++; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:743): 743: $tag_cache{$tag} = \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:745): 745: return \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:735): 735: push @taglist, grep { !$seen{$_}++ } @{$expanded}; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:743): 743: $tag_cache{$tag} = \@taglist; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:745): 745: return \@taglist; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1335): 1335: my $E; 1336: { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1337): 1337: local $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1338): 1338: $proto = eval { prototype $call }; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1339): 1339: $E = $@; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1341): 1341: croak(sprintf(ERROR_NOT_BUILT,$name)) if $E; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1342): 1342: croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1343): 1343: $CORE_prototype_cache{$call} = $proto; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:508): 508: install_subs($pkg, \%install_subs); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:120): 120: my ($target_pkg, $subs_to_reinstate) = @_; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:122): 122: my $pkg_sym = "${target_pkg}::"; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:125): 125: foreach my $sub_name (sort keys(%{$subs_to_reinstate})) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:125): 125: foreach my $sub_name (sort keys(%{$subs_to_reinstate})) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:162): 162: return; Fatal::import(/usr/share/perl/5.30/Fatal.pm:510): 510: if ($lexical) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:519): 519: $^H |= 0x020000; Fatal::import(/usr/share/perl/5.30/Fatal.pm:526): 526: }); autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:25): 25: my ($hook) = @_; autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:33): 33: $^H |= 0x020000; autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:35): 35: my $stack = $^H{$H_STACK_KEY}; autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:36): 36: if (not defined($stack)) { autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:37): 37: $stack = autodie::Scope::GuardStack->new; autodie::Scope::GuardStack::new(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:19): 19: my ($class) = @_; autodie::Scope::GuardStack::new(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:21): 21: return bless([], $class); autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:38): 38: $^H{$H_STACK_KEY} = $stack; autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:41): 41: $stack->push_hook($hook); autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:25): 25: my ($self, $hook) = @_; autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:26): 26: my $h_key = $H_KEY_STEM . ($COUNTER++); autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:27): 27: my $size = @{$self}; 28: $^H{$h_key} = autodie::Scope::Guard->new(sub { autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:27): 27: my $size = @{$self}; 28: $^H{$h_key} = autodie::Scope::Guard->new(sub { autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:51): 51: }); autodie::Scope::Guard::new(/usr/share/perl/5.30/autodie/Scope/Guard.pm:14): 14: my ($class, $handler) = @_; autodie::Scope::Guard::new(/usr/share/perl/5.30/autodie/Scope/Guard.pm:15): 15: return bless($handler, $class); autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:52): 52: push(@{$self}, [$hook, $h_key]); autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:52): 52: push(@{$self}, [$hook, $h_key]); autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:53): 53: return; autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:42): 42: return; Fatal::import(/usr/share/perl/5.30/Fatal.pm:536): 536: $^H{autodie} = "$PACKAGE @original_args"; Fatal::import(/usr/share/perl/5.30/Fatal.pm:540): 540: return; main::CODE(0x40019d2538)(/usr/share/lintian/commands/lintian.pm:32): 32: use Cwd qw(abs_path); main::CODE(0x40019d2538)(/usr/share/lintian/commands/lintian.pm:32): 32: use Cwd qw(abs_path); main::CODE(0x40019d2538)(/usr/share/lintian/commands/lintian.pm:32): 32: use Cwd qw(abs_path); Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; main::CODE(0x40019ea0c8)(/usr/share/lintian/commands/lintian.pm:33): 33: use Carp qw(croak verbose); main::CODE(0x40019ea0c8)(/usr/share/lintian/commands/lintian.pm:33): 33: use Carp qw(croak verbose); main::CODE(0x40019ea0c8)(/usr/share/lintian/commands/lintian.pm:33): 33: use Carp qw(croak verbose); Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::export(/usr/share/perl/5.30/Exporter.pm:25): 25: goto &{as_heavy()}; Exporter::export(/usr/share/perl/5.30/Exporter.pm:25): 25: goto &{as_heavy()}; Exporter::as_heavy(/usr/share/perl/5.30/Exporter.pm:16): 16: require Exporter::Heavy; Exporter::Heavy::CODE(0x40019f5fe8)(/usr/share/perl/5.30/Exporter/Heavy.pm:3): 3: use strict; Exporter::Heavy::CODE(0x40019f5fe8)(/usr/share/perl/5.30/Exporter/Heavy.pm:3): 3: use strict; Exporter::Heavy::CODE(0x40019f5fe8)(/usr/share/perl/5.30/Exporter/Heavy.pm:3): 3: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; Exporter::Heavy::CODE(0x4001a9c168)(/usr/share/perl/5.30/Exporter/Heavy.pm:4): 4: no strict 'refs'; Exporter::Heavy::CODE(0x4001a9c168)(/usr/share/perl/5.30/Exporter/Heavy.pm:4): 4: no strict 'refs'; Exporter::Heavy::CODE(0x4001a9c168)(/usr/share/perl/5.30/Exporter/Heavy.pm:4): 4: no strict 'refs'; strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; Exporter::Heavy::CODE(0x4001b706b0)(/usr/share/perl/5.30/Exporter/Heavy.pm:202): 202: no warnings 'once'; Exporter::Heavy::CODE(0x4001b706b0)(/usr/share/perl/5.30/Exporter/Heavy.pm:202): 202: no warnings 'once'; Exporter::Heavy::CODE(0x4001b706b0)(/usr/share/perl/5.30/Exporter/Heavy.pm:202): 202: no warnings 'once'; warnings::unimport(/usr/share/perl/5.30/warnings.pm:347): 347: shift; warnings::unimport(/usr/share/perl/5.30/warnings.pm:349): 349: my $catmask ; warnings::unimport(/usr/share/perl/5.30/warnings.pm:350): 350: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::unimport(/usr/share/perl/5.30/warnings.pm:353): 353: push @_, 'all' if !@_ || @_==1 && $_[0] eq 'FATAL'; warnings::unimport(/usr/share/perl/5.30/warnings.pm:355): 355: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::unimport(/usr/share/perl/5.30/warnings.pm:356): 356: foreach my $word ( @_ ) { warnings::unimport(/usr/share/perl/5.30/warnings.pm:357): 357: if ($word eq 'FATAL') { warnings::unimport(/usr/share/perl/5.30/warnings.pm:361): 361: $mask = ~(~$mask | $catmask | $DeadBits{$word}); warnings::unimport(/usr/share/perl/5.30/warnings.pm:367): 367: ${^WARNING_BITS} = $mask ; Exporter::as_heavy(/usr/share/perl/5.30/Exporter/Heavy.pm:7): 7: require Exporter; our $VERSION = $Exporter::VERSION; Exporter::as_heavy(/usr/share/perl/5.30/Exporter/Heavy.pm:7): 7: require Exporter; our $VERSION = $Exporter::VERSION; Exporter::as_heavy(/usr/share/perl/5.30/Exporter/Heavy.pm:253): 253: 1; Exporter::as_heavy(/usr/share/perl/5.30/Exporter.pm:19): 19: my $c = (caller(1))[3]; Exporter::as_heavy(/usr/share/perl/5.30/Exporter.pm:20): 20: $c =~ s/.*:://; Exporter::as_heavy(/usr/share/perl/5.30/Exporter.pm:21): 21: \&{"Exporter::Heavy::heavy_$c"}; Exporter::as_heavy(/usr/share/perl/5.30/Exporter.pm:21): 21: \&{"Exporter::Heavy::heavy_$c"}; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:42): 42: my $oldwarn = $SIG{__WARN__}; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:57): 57: }; 58: local $SIG{__DIE__} = sub { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:63): 63: }; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:65): 65: my($pkg, $callpkg, @imports) = @_; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:66): 66: my($type, $sym, $cache_is_current, $oops); Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:68): 68: $Exporter::Cache{$pkg} ||= {}); Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:67): 67: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:70): 70: if (@imports) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:71): 71: if (!%$export_cache) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:76): 76: if (grep m{^[/!:]}, @imports) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:121): 121: my @carp; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:122): 122: foreach $sym (@imports) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:123): 123: if (!$export_cache->{$sym}) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:123): 123: if (!$export_cache->{$sym}) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:157): 157: if ($oops) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:167): 167: $Exporter::FailCache{$pkg} ||= {}); Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:166): 166: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:169): 169: if (@$fail) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:170): 170: if (!%$fail_cache) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:174): 174: my @expanded = map { /^\w/ ? ($_, '&'.$_) : $_ } @$fail; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:174): 174: my @expanded = map { /^\w/ ? ($_, '&'.$_) : $_ } @$fail; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:175): 175: warn "${pkg}::EXPORT_FAIL cached: @expanded" if $Exporter::Verbose; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:176): 176: @{$fail_cache}{@expanded} = (1) x @expanded; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:176): 176: @{$fail_cache}{@expanded} = (1) x @expanded; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:178): 178: my @failed; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:179): 179: foreach $sym (@imports) { push(@failed, $sym) if $fail_cache->{$sym} } Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:179): 179: foreach $sym (@imports) { push(@failed, $sym) if $fail_cache->{$sym} } Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:179): 179: foreach $sym (@imports) { push(@failed, $sym) if $fail_cache->{$sym} } Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:180): 180: if (@failed) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:181): 181: @failed = $pkg->export_fail(@failed); Carp::export_fail(/usr/share/perl/5.30/Carp.pm:253): 253: sub export_fail { shift; $Verbose = shift if $_[0] eq 'verbose'; @_ } Carp::export_fail(/usr/share/perl/5.30/Carp.pm:253): 253: sub export_fail { shift; $Verbose = shift if $_[0] eq 'verbose'; @_ } Carp::export_fail(/usr/share/perl/5.30/Carp.pm:253): 253: sub export_fail { shift; $Verbose = shift if $_[0] eq 'verbose'; @_ } Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:182): 182: foreach $sym (@failed) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:187): 187: if (@failed) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:194): 194: warn "Importing into $callpkg from $pkg: ", 195: join(", ",sort @imports) if $Exporter::Verbose; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:197): 197: foreach $sym (@imports) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; main::CODE(0x40019f0d30)(/usr/share/lintian/commands/lintian.pm:34): 34: use Getopt::Long(); main::CODE(0x40019f0d30)(/usr/share/lintian/commands/lintian.pm:34): 34: use Getopt::Long(); main::CODE(0x40019f0d30)(/usr/share/lintian/commands/lintian.pm:34): 34: use Getopt::Long(); main::CODE(0x40019ea9c8)(/usr/share/lintian/commands/lintian.pm:35): 35: use List::MoreUtils qw(any none); List::MoreUtils::CODE(0x4001b55da0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:3): 3: use 5.006; List::MoreUtils::CODE(0x4001b55da0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:3): 3: use 5.006; List::MoreUtils::CODE(0x4001b55da0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:3): 3: use 5.006; List::MoreUtils::CODE(0x4001b55c68)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:4): 4: use strict; List::MoreUtils::CODE(0x4001b55c68)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:4): 4: use strict; List::MoreUtils::CODE(0x4001b55c68)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:4): 4: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; List::MoreUtils::CODE(0x4001b83828)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:5): 5: use warnings; List::MoreUtils::CODE(0x4001b83828)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:5): 5: use warnings; List::MoreUtils::CODE(0x4001b83828)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:5): 5: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; List::MoreUtils::CODE(0x4001b83c30)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:12): 12: use List::MoreUtils::PP qw(); List::MoreUtils::PP::CODE(0x4001b838e8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:3): 3: use 5.006; List::MoreUtils::PP::CODE(0x4001b838e8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:3): 3: use 5.006; List::MoreUtils::PP::CODE(0x4001b838e8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:3): 3: use 5.006; List::MoreUtils::PP::CODE(0x4001b83930)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:4): 4: use strict; List::MoreUtils::PP::CODE(0x4001b83930)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:4): 4: use strict; List::MoreUtils::PP::CODE(0x4001b83930)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:4): 4: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; List::MoreUtils::PP::CODE(0x4001b84260)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:5): 5: use warnings; List::MoreUtils::PP::CODE(0x4001b84260)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:5): 5: use warnings; List::MoreUtils::PP::CODE(0x4001b84260)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:5): 5: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; List::MoreUtils::PP::CODE(0x4001bc4b38)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:327): 327: use vars qw{ @A @B }; List::MoreUtils::PP::CODE(0x4001bc4b38)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:327): 327: use vars qw{ @A @B }; List::MoreUtils::PP::CODE(0x4001bc4b38)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:327): 327: use vars qw{ @A @B }; vars::import(/usr/share/perl/5.30/vars.pm:11): 11: my $callpack = caller; vars::import(/usr/share/perl/5.30/vars.pm:12): 12: my (undef, @imports) = @_; vars::import(/usr/share/perl/5.30/vars.pm:13): 13: my ($sym, $ch); vars::import(/usr/share/perl/5.30/vars.pm:14): 14: foreach (@imports) { vars::import(/usr/share/perl/5.30/vars.pm:15): 15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { vars::import(/usr/share/perl/5.30/vars.pm:16): 16: if ($sym =~ /\W/) { vars::import(/usr/share/perl/5.30/vars.pm:28): 28: $sym = "${callpack}::$sym" unless $sym =~ /::/; 29: *$sym = 30: ( $ch eq "\$" ? \$$sym 31: : $ch eq "\@" ? \@$sym 32: : $ch eq "\%" ? \%$sym 33: : $ch eq "\*" ? \*$sym 34: : $ch eq "\&" ? \&$sym vars::import(/usr/share/perl/5.30/vars.pm:35): 35: : do { vars::import(/usr/share/perl/5.30/vars.pm:15): 15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { vars::import(/usr/share/perl/5.30/vars.pm:16): 16: if ($sym =~ /\W/) { vars::import(/usr/share/perl/5.30/vars.pm:28): 28: $sym = "${callpack}::$sym" unless $sym =~ /::/; 29: *$sym = 30: ( $ch eq "\$" ? \$$sym 31: : $ch eq "\@" ? \@$sym 32: : $ch eq "\%" ? \%$sym 33: : $ch eq "\*" ? \*$sym 34: : $ch eq "\&" ? \&$sym vars::import(/usr/share/perl/5.30/vars.pm:35): 35: : do { List::MoreUtils::PP::CODE(0x4001bc4df0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:334): 334: no strict 'refs'; List::MoreUtils::PP::CODE(0x4001bc4df0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:334): 334: no strict 'refs'; List::MoreUtils::PP::CODE(0x4001bc4df0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:334): 334: no strict 'refs'; strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; List::MoreUtils::PP::CODE(0x4001b83c30)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:7): 7: our $VERSION = '0.416'; List::MoreUtils::PP::CODE(0x4001b83c30)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/PP.pm:587): 587: 1; List::MoreUtils::CODE(0x4001b83c30)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:12): 12: use List::MoreUtils::PP qw(); List::MoreUtils::CODE(0x4001b83c30)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:12): 12: use List::MoreUtils::PP qw(); List::MoreUtils::CODE(0x4001b361c0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:9): 9: our $VERSION = '0.416'; List::MoreUtils::CODE(0x4001b361c0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:10): 10: eval { require List::MoreUtils::XS; } unless $ENV{LIST_MOREUTILS_PP}; List::MoreUtils::CODE(0x4001b361c0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:10): 10: eval { require List::MoreUtils::XS; } unless $ENV{LIST_MOREUTILS_PP}; List::MoreUtils::XS::CODE(0x4001b83678)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:3): 3: use 5.006; List::MoreUtils::XS::CODE(0x4001b83678)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:3): 3: use 5.006; List::MoreUtils::XS::CODE(0x4001b83678)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:3): 3: use 5.006; List::MoreUtils::XS::CODE(0x4001b83e28)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:4): 4: use strict; List::MoreUtils::XS::CODE(0x4001b83e28)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:4): 4: use strict; List::MoreUtils::XS::CODE(0x4001b83e28)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:4): 4: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; List::MoreUtils::XS::CODE(0x4001b8beb0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:5): 5: use warnings; List::MoreUtils::XS::CODE(0x4001b8beb0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:5): 5: use warnings; List::MoreUtils::XS::CODE(0x4001b8beb0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:5): 5: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; List::MoreUtils::XS::CODE(0x4001b83ab0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:7): 7: use vars qw{$VERSION @ISA}; List::MoreUtils::XS::CODE(0x4001b83ab0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:7): 7: use vars qw{$VERSION @ISA}; List::MoreUtils::XS::CODE(0x4001b83ab0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:7): 7: use vars qw{$VERSION @ISA}; vars::import(/usr/share/perl/5.30/vars.pm:11): 11: my $callpack = caller; vars::import(/usr/share/perl/5.30/vars.pm:12): 12: my (undef, @imports) = @_; vars::import(/usr/share/perl/5.30/vars.pm:13): 13: my ($sym, $ch); vars::import(/usr/share/perl/5.30/vars.pm:14): 14: foreach (@imports) { vars::import(/usr/share/perl/5.30/vars.pm:15): 15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { vars::import(/usr/share/perl/5.30/vars.pm:16): 16: if ($sym =~ /\W/) { vars::import(/usr/share/perl/5.30/vars.pm:28): 28: $sym = "${callpack}::$sym" unless $sym =~ /::/; 29: *$sym = 30: ( $ch eq "\$" ? \$$sym 31: : $ch eq "\@" ? \@$sym 32: : $ch eq "\%" ? \%$sym 33: : $ch eq "\*" ? \*$sym 34: : $ch eq "\&" ? \&$sym vars::import(/usr/share/perl/5.30/vars.pm:35): 35: : do { vars::import(/usr/share/perl/5.30/vars.pm:15): 15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { vars::import(/usr/share/perl/5.30/vars.pm:16): 16: if ($sym =~ /\W/) { vars::import(/usr/share/perl/5.30/vars.pm:28): 28: $sym = "${callpack}::$sym" unless $sym =~ /::/; 29: *$sym = 30: ( $ch eq "\$" ? \$$sym 31: : $ch eq "\@" ? \@$sym 32: : $ch eq "\%" ? \%$sym 33: : $ch eq "\*" ? \*$sym 34: : $ch eq "\&" ? \&$sym vars::import(/usr/share/perl/5.30/vars.pm:35): 35: : do { List::MoreUtils::XS::CODE(0x4001b98b40)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:18): 18: use XSLoader (); List::MoreUtils::XS::CODE(0x4001b98b40)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:18): 18: use XSLoader (); List::MoreUtils::XS::CODE(0x4001b98b40)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:18): 18: use XSLoader (); List::MoreUtils::XS::CODE(0x4001b361c0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:9): 9: $VERSION = '0.416'; List::MoreUtils::XS::CODE(0x4001b361c0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:16): 16: local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY}; List::MoreUtils::XS::CODE(0x4001b361c0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:19): 19: XSLoader::load("List::MoreUtils", "$VERSION"); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:21): 21: my ($caller, $modlibname) = caller(); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:22): 22: my $module = $caller; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:24): 24: if (@_) { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:25): 25: $module = $_[0]; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:31): 31: my $boots = "$module\::bootstrap"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:32): 32: goto &$boots if defined &$boots; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:34): 34: goto \&XSLoader::bootstrap_inherit unless $module and defined &dl_load_file; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:36): 36: my @modparts = split(/::/,$module); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:37): 37: my $modfname = $modparts[-1]; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:38): 38: my $modfname_orig = $modfname; # For .bs file search XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:40): 40: my $modpname = join('/',@modparts); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:41): 41: my $c = () = split(/::/,$caller,-1); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:42): 42: $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:44): 44: if ($modlibname !~ m{^/}) { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:68): 68: my $file = "$modlibname/auto/$modpname/$modfname.so"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:75): 75: my $bs = "$modlibname/auto/$modpname/$modfname_orig.bs"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:78): 78: goto \&XSLoader::bootstrap_inherit if not -f $file or -s $bs; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:80): 80: my $bootname = "boot_$module"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:81): 81: $bootname =~ s/\W/_/g; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:82): 82: @DynaLoader::dl_require_symbols = ($bootname); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:84): 84: my $boot_symbol_ref; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:93): 93: my $libref = dl_load_file($file, 0) or do { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:97): 97: push(@DynaLoader::dl_librefs,$libref); # record loaded object XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:99): 99: $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:104): 104: push(@DynaLoader::dl_modules, $module); # record loaded module XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:106): 106: boot: 107: my $xs = dl_install_xsub($boots, $boot_symbol_ref, $file); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:110): 110: push(@DynaLoader::dl_shared_objects, $file); # record files loaded XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:111): 111: return &$xs(@_); List::MoreUtils::XS::CODE(0x4001b361c0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils/XS.pm:58): 58: 1; List::MoreUtils::CODE(0x4001b839d8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:15): 15: use Exporter::Tiny qw(); Exporter::Tiny::CODE(0x4001bb55d8)(/usr/share/perl5/Exporter/Tiny.pm:3): 3: use 5.006001; Exporter::Tiny::CODE(0x4001bb55d8)(/usr/share/perl5/Exporter/Tiny.pm:3): 3: use 5.006001; Exporter::Tiny::CODE(0x4001bb55d8)(/usr/share/perl5/Exporter/Tiny.pm:3): 3: use 5.006001; Exporter::Tiny::CODE(0x4001b83db0)(/usr/share/perl5/Exporter/Tiny.pm:4): 4: use strict; Exporter::Tiny::CODE(0x4001b83db0)(/usr/share/perl5/Exporter/Tiny.pm:4): 4: use strict; Exporter::Tiny::CODE(0x4001b83db0)(/usr/share/perl5/Exporter/Tiny.pm:4): 4: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; Exporter::Tiny::CODE(0x4001bfa6b0)(/usr/share/perl5/Exporter/Tiny.pm:5): 5: use warnings; no warnings qw(void once uninitialized numeric redefine); Exporter::Tiny::CODE(0x4001bfa6b0)(/usr/share/perl5/Exporter/Tiny.pm:5): 5: use warnings; no warnings qw(void once uninitialized numeric redefine); Exporter::Tiny::CODE(0x4001bfa6b0)(/usr/share/perl5/Exporter/Tiny.pm:5): 5: use warnings; no warnings qw(void once uninitialized numeric redefine); warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; Exporter::Tiny::CODE(0x4001bfa590)(/usr/share/perl5/Exporter/Tiny.pm:5): 5: use warnings; no warnings qw(void once uninitialized numeric redefine); Exporter::Tiny::CODE(0x4001bfa590)(/usr/share/perl5/Exporter/Tiny.pm:5): 5: use warnings; no warnings qw(void once uninitialized numeric redefine); Exporter::Tiny::CODE(0x4001bfa590)(/usr/share/perl5/Exporter/Tiny.pm:5): 5: use warnings; no warnings qw(void once uninitialized numeric redefine); warnings::unimport(/usr/share/perl/5.30/warnings.pm:347): 347: shift; warnings::unimport(/usr/share/perl/5.30/warnings.pm:349): 349: my $catmask ; warnings::unimport(/usr/share/perl/5.30/warnings.pm:350): 350: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::unimport(/usr/share/perl/5.30/warnings.pm:353): 353: push @_, 'all' if !@_ || @_==1 && $_[0] eq 'FATAL'; warnings::unimport(/usr/share/perl/5.30/warnings.pm:355): 355: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:282): 282: if ($bits eq "") { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:287): 287: my $a = vec($bits, $Offsets{all} >> 1, 2); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:288): 288: $a |= $a << 2; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:289): 289: $a |= $a << 4; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:290): 290: $bits .= chr($a) x ($want_len - $len); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::unimport(/usr/share/perl/5.30/warnings.pm:356): 356: foreach my $word ( @_ ) { warnings::unimport(/usr/share/perl/5.30/warnings.pm:357): 357: if ($word eq 'FATAL') { warnings::unimport(/usr/share/perl/5.30/warnings.pm:361): 361: $mask = ~(~$mask | $catmask | $DeadBits{$word}); warnings::unimport(/usr/share/perl/5.30/warnings.pm:357): 357: if ($word eq 'FATAL') { warnings::unimport(/usr/share/perl/5.30/warnings.pm:361): 361: $mask = ~(~$mask | $catmask | $DeadBits{$word}); warnings::unimport(/usr/share/perl/5.30/warnings.pm:357): 357: if ($word eq 'FATAL') { warnings::unimport(/usr/share/perl/5.30/warnings.pm:361): 361: $mask = ~(~$mask | $catmask | $DeadBits{$word}); warnings::unimport(/usr/share/perl/5.30/warnings.pm:357): 357: if ($word eq 'FATAL') { warnings::unimport(/usr/share/perl/5.30/warnings.pm:361): 361: $mask = ~(~$mask | $catmask | $DeadBits{$word}); warnings::unimport(/usr/share/perl/5.30/warnings.pm:357): 357: if ($word eq 'FATAL') { warnings::unimport(/usr/share/perl/5.30/warnings.pm:361): 361: $mask = ~(~$mask | $catmask | $DeadBits{$word}); warnings::unimport(/usr/share/perl/5.30/warnings.pm:367): 367: ${^WARNING_BITS} = $mask ; Exporter::Tiny::CODE(0x4001c08a90)(/usr/share/perl5/Exporter/Tiny.pm:48): 48: my @args = do { no strict qw(refs); @_ ? @_ : @{"$class\::EXPORT"} }; Exporter::Tiny::CODE(0x4001c08a90)(/usr/share/perl5/Exporter/Tiny.pm:48): 48: my @args = do { no strict qw(refs); @_ ? @_ : @{"$class\::EXPORT"} }; Exporter::Tiny::CODE(0x4001c08a90)(/usr/share/perl5/Exporter/Tiny.pm:48): 48: my @args = do { no strict qw(refs); @_ ? @_ : @{"$class\::EXPORT"} }; strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; Exporter::Tiny::CODE(0x4001c16470)(/usr/share/perl5/Exporter/Tiny.pm:143): 143: no strict qw(refs); Exporter::Tiny::CODE(0x4001c16470)(/usr/share/perl5/Exporter/Tiny.pm:143): 143: no strict qw(refs); Exporter::Tiny::CODE(0x4001c16470)(/usr/share/perl5/Exporter/Tiny.pm:143): 143: no strict qw(refs); strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; Exporter::Tiny::CODE(0x4001c24358)(/usr/share/perl5/Exporter/Tiny.pm:170): 170: no strict qw(refs); Exporter::Tiny::CODE(0x4001c24358)(/usr/share/perl5/Exporter/Tiny.pm:170): 170: no strict qw(refs); Exporter::Tiny::CODE(0x4001c24358)(/usr/share/perl5/Exporter/Tiny.pm:170): 170: no strict qw(refs); strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; Exporter::Tiny::CODE(0x4001c23f80)(/usr/share/perl5/Exporter/Tiny.pm:189): 189: no strict qw(refs); Exporter::Tiny::CODE(0x4001c23f80)(/usr/share/perl5/Exporter/Tiny.pm:189): 189: no strict qw(refs); Exporter::Tiny::CODE(0x4001c23f80)(/usr/share/perl5/Exporter/Tiny.pm:189): 189: no strict qw(refs); strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; Exporter::Tiny::CODE(0x4001c24a90)(/usr/share/perl5/Exporter/Tiny.pm:206): 206: no strict qw(refs); Exporter::Tiny::CODE(0x4001c24a90)(/usr/share/perl5/Exporter/Tiny.pm:206): 206: no strict qw(refs); Exporter::Tiny::CODE(0x4001c24a90)(/usr/share/perl5/Exporter/Tiny.pm:206): 206: no strict qw(refs); strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; Exporter::Tiny::CODE(0x4001c3ec38)(/usr/share/perl5/Exporter/Tiny.pm:298): 298: no strict qw(refs); Exporter::Tiny::CODE(0x4001c3ec38)(/usr/share/perl5/Exporter/Tiny.pm:298): 298: no strict qw(refs); Exporter::Tiny::CODE(0x4001c3ec38)(/usr/share/perl5/Exporter/Tiny.pm:298): 298: no strict qw(refs); strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; Exporter::Tiny::CODE(0x4001c3f598)(/usr/share/perl5/Exporter/Tiny.pm:332): 332: no warnings qw(prototype); Exporter::Tiny::CODE(0x4001c3f598)(/usr/share/perl5/Exporter/Tiny.pm:332): 332: no warnings qw(prototype); Exporter::Tiny::CODE(0x4001c3f598)(/usr/share/perl5/Exporter/Tiny.pm:332): 332: no warnings qw(prototype); warnings::unimport(/usr/share/perl/5.30/warnings.pm:347): 347: shift; warnings::unimport(/usr/share/perl/5.30/warnings.pm:349): 349: my $catmask ; warnings::unimport(/usr/share/perl/5.30/warnings.pm:350): 350: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::unimport(/usr/share/perl/5.30/warnings.pm:353): 353: push @_, 'all' if !@_ || @_==1 && $_[0] eq 'FATAL'; warnings::unimport(/usr/share/perl/5.30/warnings.pm:355): 355: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::unimport(/usr/share/perl/5.30/warnings.pm:356): 356: foreach my $word ( @_ ) { warnings::unimport(/usr/share/perl/5.30/warnings.pm:357): 357: if ($word eq 'FATAL') { warnings::unimport(/usr/share/perl/5.30/warnings.pm:361): 361: $mask = ~(~$mask | $catmask | $DeadBits{$word}); warnings::unimport(/usr/share/perl/5.30/warnings.pm:367): 367: ${^WARNING_BITS} = $mask ; Exporter::Tiny::CODE(0x4001c48830)(/usr/share/perl5/Exporter/Tiny.pm:346): 346: no strict qw(refs); Exporter::Tiny::CODE(0x4001c48830)(/usr/share/perl5/Exporter/Tiny.pm:346): 346: no strict qw(refs); Exporter::Tiny::CODE(0x4001c48830)(/usr/share/perl5/Exporter/Tiny.pm:346): 346: no strict qw(refs); strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; Exporter::Tiny::CODE(0x4001b839d8)(/usr/share/perl5/Exporter/Tiny.pm:7): 7: our $AUTHORITY = 'cpan:TOBYINK'; Exporter::Tiny::CODE(0x4001b839d8)(/usr/share/perl5/Exporter/Tiny.pm:8): 8: our $VERSION = '1.002001'; Exporter::Tiny::CODE(0x4001b839d8)(/usr/share/perl5/Exporter/Tiny.pm:9): 9: our @EXPORT_OK = qw< mkopt mkopt_hash _croak _carp >; Exporter::Tiny::CODE(0x4001b839d8)(/usr/share/perl5/Exporter/Tiny.pm:38): 38: }; Exporter::Tiny::CODE(0x4001b839d8)(/usr/share/perl5/Exporter/Tiny.pm:411): 411: 1; List::MoreUtils::CODE(0x4001b839d8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:15): 15: use Exporter::Tiny qw(); List::MoreUtils::CODE(0x4001b839d8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:15): 15: use Exporter::Tiny qw(); List::MoreUtils::CODE(0x4001c245f8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:40): 40: no strict "refs"; List::MoreUtils::CODE(0x4001c245f8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:40): 40: no strict "refs"; List::MoreUtils::CODE(0x4001c245f8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:40): 40: no strict "refs"; strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; List::MoreUtils::CODE(0x4001bfaad0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:42): 42: use strict; List::MoreUtils::CODE(0x4001bfaad0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:42): 42: use strict; List::MoreUtils::CODE(0x4001bfaad0)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:42): 42: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; List::MoreUtils::CODE(0x4001c5c048)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:100): 100: no strict qw(refs); List::MoreUtils::CODE(0x4001c5c048)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:100): 100: no strict qw(refs); List::MoreUtils::CODE(0x4001c5c048)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:100): 100: no strict qw(refs); strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:69): 69: $^H &= ~&bits; strict::bits(/usr/share/perl/5.30/strict.pm:41): 41: my $bits = 0; strict::bits(/usr/share/perl/5.30/strict.pm:42): 42: my @wrong; strict::bits(/usr/share/perl/5.30/strict.pm:43): 43: foreach my $s (@_) { strict::bits(/usr/share/perl/5.30/strict.pm:44): 44: if (exists $bitmask{$s}) { strict::bits(/usr/share/perl/5.30/strict.pm:45): 45: $^H |= $explicit_bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:47): 47: $bits |= $bitmask{$s}; strict::bits(/usr/share/perl/5.30/strict.pm:53): 53: if (@wrong) { strict::bits(/usr/share/perl/5.30/strict.pm:57): 57: $bits; List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:17): 17: my @junctions = qw(any all none notall); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:18): 18: my @v0_22 = qw( 19: true false 20: firstidx lastidx 21: insert_after insert_after_string 22: apply indexes 23: after after_incl before before_incl 24: firstval lastval 25: each_array each_arrayref 26: pairwise natatime 27: mesh uniq 28: minmax part 29: _XScompiled 30: ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:31): 31: my @v0_24 = qw(bsearch); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:32): 32: my @v0_33 = qw(sort_by nsort_by); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:33): 33: my @v0_400 = qw(one any_u all_u none_u notall_u one_u 34: firstres onlyidx onlyval onlyres lastres 35: singleton bsearchidx 36: ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:38): 38: my @all_functions = ( @junctions, @v0_22, @v0_24, @v0_33, @v0_400 ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:41): 41: List::MoreUtils->can($_) or *$_ = List::MoreUtils::PP->can($_) for(@all_functions); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:44): 44: my %alias_list = ( 45: v0_22 => { 46: first_index => "firstidx", 47: last_index => "lastidx", 48: first_value => "firstval", 49: last_value => "lastval", 50: zip => "mesh", List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:65): 65: our @ISA = qw(Exporter::Tiny); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:66): 66: our @EXPORT_OK = ( @all_functions, map { keys %$_ } values %alias_list ); 67: our %EXPORT_TAGS = ( 68: all => \@EXPORT_OK, 69: 'like_0.22' => [ 70: any_u => { -as => 'any' }, 71: all_u => { -as => 'all' }, 72: none_u => { -as => 'none' }, 73: notall_u => { -as => 'notall' }, 74: @v0_22, List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:66): 66: our @EXPORT_OK = ( @all_functions, map { keys %$_ } values %alias_list ); 67: our %EXPORT_TAGS = ( 68: all => \@EXPORT_OK, 69: 'like_0.22' => [ 70: any_u => { -as => 'any' }, 71: all_u => { -as => 'all' }, 72: none_u => { -as => 'none' }, 73: notall_u => { -as => 'notall' }, 74: @v0_22, List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:66): 66: our @EXPORT_OK = ( @all_functions, map { keys %$_ } values %alias_list ); 67: our %EXPORT_TAGS = ( 68: all => \@EXPORT_OK, 69: 'like_0.22' => [ 70: any_u => { -as => 'any' }, 71: all_u => { -as => 'all' }, 72: none_u => { -as => 'none' }, 73: notall_u => { -as => 'notall' }, 74: @v0_22, List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:66): 66: our @EXPORT_OK = ( @all_functions, map { keys %$_ } values %alias_list ); 67: our %EXPORT_TAGS = ( 68: all => \@EXPORT_OK, 69: 'like_0.22' => [ 70: any_u => { -as => 'any' }, 71: all_u => { -as => 'all' }, 72: none_u => { -as => 'none' }, 73: notall_u => { -as => 'notall' }, 74: @v0_22, List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:92): 92: keys %{ $alias_list{v0_33} }, 93: ], 94: ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:75): 75: keys %{ $alias_list{v0_22} }, 76: ], 77: 'like_0.24' => [ 78: any_u => { -as => 'any' }, 79: all_u => { -as => 'all' }, 80: notall_u => { -as => 'notall' }, 81: 'none', 82: @v0_22, 83: @v0_24, List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:84): 84: keys %{ $alias_list{v0_22} }, 85: ], 86: 'like_0.33' => [ 87: @junctions, 88: @v0_22, List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:91): 91: keys %{ $alias_list{v0_22} }, List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:92): 92: keys %{ $alias_list{v0_33} }, 93: ], 94: ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:96): 96: for my $set ( values %alias_list ) 97: { List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:98): 98: for my $alias ( keys %$set ) 99: { List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:98): 98: for my $alias ( keys %$set ) 99: { List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:98): 98: for my $alias ( keys %$set ) 99: { List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:101): 101: *$alias = __PACKAGE__->can( $set->{$alias} ); List::MoreUtils::CODE(0x40019ea9c8)(/usr/lib/aarch64-linux-gnu/perl5/5.30/List/MoreUtils.pm:971): 971: 1; main::CODE(0x40019ea9c8)(/usr/share/lintian/commands/lintian.pm:35): 35: use List::MoreUtils qw(any none); main::CODE(0x40019ea9c8)(/usr/share/lintian/commands/lintian.pm:35): 35: use List::MoreUtils qw(any none); Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:42): 42: my $class = shift; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:43): 43: my $global_opts = +{ @_ && ref($_[0]) eq q(HASH) ? %{+shift} : () }; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:44): 44: $global_opts->{into} = caller unless exists $global_opts->{into}; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:46): 46: my @want; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:47): 47: my %not_want; $global_opts->{not} = \%not_want; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:47): 47: my %not_want; $global_opts->{not} = \%not_want; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:48): 48: my @args = do { no strict qw(refs); @_ ? @_ : @{"$class\::EXPORT"} }; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:48): 48: my @args = do { no strict qw(refs); @_ ? @_ : @{"$class\::EXPORT"} }; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:49): 49: my $opts = mkopt(\@args); Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:382): 382: my $in = shift or return []; Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:383): 383: my @out; Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:385): 385: $in = [map(($_ => ref($in->{$_}) ? $in->{$_} : ()), sort keys %$in)] 386: if ref($in) eq q(HASH); Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:388): 388: for (my $i = 0; $i < @$in; $i++) 389: { Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:390): 390: my $k = $in->[$i]; Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:391): 391: my $v; Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:393): 393: ($i == $#$in) ? ($v = undef) : 394: !defined($in->[$i+1]) ? (++$i, ($v = undef)) : 395: !ref($in->[$i+1]) ? ($v = undef) : 396: ($v = $in->[++$i]); Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:398): 398: push @out, [ $k => $v ]; Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:390): 390: my $k = $in->[$i]; Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:391): 391: my $v; Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:393): 393: ($i == $#$in) ? ($v = undef) : 394: !defined($in->[$i+1]) ? (++$i, ($v = undef)) : 395: !ref($in->[$i+1]) ? ($v = undef) : 396: ($v = $in->[++$i]); Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:398): 398: push @out, [ $k => $v ]; Exporter::Tiny::mkopt(/usr/share/perl5/Exporter/Tiny.pm:401): 401: \@out; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:50): 50: $class->$_process_optlist($global_opts, $opts, \@want, \%not_want); Exporter::Tiny::CODE(0x4001b840e0)(/usr/share/perl5/Exporter/Tiny.pm:16): 16: my $class = shift; Exporter::Tiny::CODE(0x4001b840e0)(/usr/share/perl5/Exporter/Tiny.pm:17): 17: my ($global_opts, $opts, $want, $not_want) = @_; Exporter::Tiny::CODE(0x4001b840e0)(/usr/share/perl5/Exporter/Tiny.pm:19): 19: while (@$opts) 20: { Exporter::Tiny::CODE(0x4001b840e0)(/usr/share/perl5/Exporter/Tiny.pm:21): 21: my $opt = shift @{$opts}; Exporter::Tiny::CODE(0x4001b840e0)(/usr/share/perl5/Exporter/Tiny.pm:21): 21: my $opt = shift @{$opts}; Exporter::Tiny::CODE(0x4001b840e0)(/usr/share/perl5/Exporter/Tiny.pm:22): 22: my ($name, $value) = @$opt; Exporter::Tiny::CODE(0x4001b840e0)(/usr/share/perl5/Exporter/Tiny.pm:30): 30: (++$not_want->{$1}) : 31: ($name =~ m{\A[:-](.+)\z}) ? 32: push(@$opts, $class->_exporter_expand_tag($1, $value, $global_opts)) : 33: ($name =~ m{\A/.+/[msixpodual]+\z}) ? 34: push(@$opts, $class->_exporter_expand_regexp($name, $value, $global_opts)) : Exporter::Tiny::CODE(0x4001b840e0)(/usr/share/perl5/Exporter/Tiny.pm:21): 21: my $opt = shift @{$opts}; Exporter::Tiny::CODE(0x4001b840e0)(/usr/share/perl5/Exporter/Tiny.pm:21): 21: my $opt = shift @{$opts}; Exporter::Tiny::CODE(0x4001b840e0)(/usr/share/perl5/Exporter/Tiny.pm:22): 22: my ($name, $value) = @$opt; Exporter::Tiny::CODE(0x4001b840e0)(/usr/share/perl5/Exporter/Tiny.pm:30): 30: (++$not_want->{$1}) : 31: ($name =~ m{\A[:-](.+)\z}) ? 32: push(@$opts, $class->_exporter_expand_tag($1, $value, $global_opts)) : 33: ($name =~ m{\A/.+/[msixpodual]+\z}) ? 34: push(@$opts, $class->_exporter_expand_regexp($name, $value, $global_opts)) : Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:52): 52: my $permitted = $class->_exporter_permitted_regexp($global_opts); Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:190): 190: my $class = shift; 191: my $re = join "|", map quotemeta, sort { Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:193): 193: } @{"$class\::EXPORT"}, @{"$class\::EXPORT_OK"}; Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:193): 193: } @{"$class\::EXPORT"}, @{"$class\::EXPORT_OK"}; Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:193): 193: } @{"$class\::EXPORT"}, @{"$class\::EXPORT_OK"}; Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:192): 192: length($b) <=> length($a) or $a cmp $b Exporter::Tiny::_exporter_permitted_regexp(/usr/share/perl5/Exporter/Tiny.pm:194): 194: qr{^(?:$re)$}ms; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:53): 53: $class->_exporter_validate_opts($global_opts); Exporter::Tiny::_exporter_validate_opts(/usr/share/perl5/Exporter/Tiny.pm:106): 106: sub _exporter_validate_opts { 1 } Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:55): 55: for my $wanted (@want) 56: { Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:57): 57: next if $not_want{$wanted->[0]}; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:59): 59: my %symbols = $class->_exporter_expand_sub(@$wanted, $global_opts, $permitted); 60: $class->_exporter_install_sub($_, $wanted->[1], $global_opts, $symbols{$_}) Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:202): 202: my $class = shift; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:203): 203: my ($name, $value, $globals, $permitted) = @_; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:204): 204: $permitted ||= $class->_exporter_permitted_regexp($globals); Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:208): 208: my $sigil = "&"; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:209): 209: if ($name =~ /\A([&\$\%\@\*])(.+)\z/) { Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:216): 216: my $sigilname = $sigil eq '&' ? $name : "$sigil$name"; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:218): 218: if ($sigilname =~ $permitted) 219: { 220: my $generatorprefix = { 221: '&' => "_generate_", 222: '$' => "_generateScalar_", 223: '@' => "_generateArray_", 224: '%' => "_generateHash_", Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:225): 225: }->{$sigil}; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:227): 227: my $generator = $class->can("$generatorprefix$name"); Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:228): 228: return $sigilname => $class->$generator($sigilname, $value, $globals) if $generator; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:230): 230: my $sub = $class->can($name); Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:231): 231: return $sigilname => $sub if $sub; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:61): 61: for keys %symbols; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:259): 259: my $class = shift; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:260): 260: my ($name, $value, $globals, $sym) = @_; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:262): 262: my $into = $globals->{into}; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:263): 263: my $installer = $globals->{installer} || $globals->{exporter}; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:269): 269: $name; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:271): 271: return unless defined $name; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:273): 273: my $sigil = "&"; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:274): 274: unless (ref($name)) { Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:275): 275: if ($name =~ /\A([&\$\%\@\*])(.+)\z/) { Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:282): 282: my ($prefix) = grep defined, $value->{-prefix}, $globals->{prefix}, q(); Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:283): 283: my ($suffix) = grep defined, $value->{-suffix}, $globals->{suffix}, q(); Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:284): 284: $name = "$prefix$name$suffix"; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:287): 287: my $sigilname = $sigil eq '&' ? $name : "$sigil$name"; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:295): 295: return ($$name = $sym) if ref($name) eq q(SCALAR); Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:296): 296: return ($into->{$sigilname} = $sym) if ref($into) eq q(HASH); Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:299): 299: our %TRACKED; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:301): 301: if (ref($sym) eq 'CODE' and exists &{"$into\::$name"} and \&{"$into\::$name"} != $sym) 302: { Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:301): 301: if (ref($sym) eq 'CODE' and exists &{"$into\::$name"} and \&{"$into\::$name"} != $sym) 302: { Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:330): 330: $TRACKED{$class}{$into}{$sigilname} = $sym; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:335): 335: : (*{"$into\::$name"} = $sym); Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:335): 335: : (*{"$into\::$name"} = $sym); Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:57): 57: next if $not_want{$wanted->[0]}; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:59): 59: my %symbols = $class->_exporter_expand_sub(@$wanted, $global_opts, $permitted); 60: $class->_exporter_install_sub($_, $wanted->[1], $global_opts, $symbols{$_}) Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:202): 202: my $class = shift; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:203): 203: my ($name, $value, $globals, $permitted) = @_; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:204): 204: $permitted ||= $class->_exporter_permitted_regexp($globals); Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:208): 208: my $sigil = "&"; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:209): 209: if ($name =~ /\A([&\$\%\@\*])(.+)\z/) { Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:216): 216: my $sigilname = $sigil eq '&' ? $name : "$sigil$name"; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:218): 218: if ($sigilname =~ $permitted) 219: { 220: my $generatorprefix = { 221: '&' => "_generate_", 222: '$' => "_generateScalar_", 223: '@' => "_generateArray_", 224: '%' => "_generateHash_", Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:225): 225: }->{$sigil}; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:227): 227: my $generator = $class->can("$generatorprefix$name"); Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:228): 228: return $sigilname => $class->$generator($sigilname, $value, $globals) if $generator; Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:230): 230: my $sub = $class->can($name); Exporter::Tiny::_exporter_expand_sub(/usr/share/perl5/Exporter/Tiny.pm:231): 231: return $sigilname => $sub if $sub; Exporter::Tiny::import(/usr/share/perl5/Exporter/Tiny.pm:61): 61: for keys %symbols; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:259): 259: my $class = shift; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:260): 260: my ($name, $value, $globals, $sym) = @_; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:262): 262: my $into = $globals->{into}; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:263): 263: my $installer = $globals->{installer} || $globals->{exporter}; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:269): 269: $name; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:271): 271: return unless defined $name; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:273): 273: my $sigil = "&"; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:274): 274: unless (ref($name)) { Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:275): 275: if ($name =~ /\A([&\$\%\@\*])(.+)\z/) { Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:282): 282: my ($prefix) = grep defined, $value->{-prefix}, $globals->{prefix}, q(); Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:283): 283: my ($suffix) = grep defined, $value->{-suffix}, $globals->{suffix}, q(); Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:284): 284: $name = "$prefix$name$suffix"; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:287): 287: my $sigilname = $sigil eq '&' ? $name : "$sigil$name"; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:295): 295: return ($$name = $sym) if ref($name) eq q(SCALAR); Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:296): 296: return ($into->{$sigilname} = $sym) if ref($into) eq q(HASH); Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:299): 299: our %TRACKED; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:301): 301: if (ref($sym) eq 'CODE' and exists &{"$into\::$name"} and \&{"$into\::$name"} != $sym) 302: { Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:301): 301: if (ref($sym) eq 'CODE' and exists &{"$into\::$name"} and \&{"$into\::$name"} != $sym) 302: { Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:330): 330: $TRACKED{$class}{$into}{$sigilname} = $sym; Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:335): 335: : (*{"$into\::$name"} = $sym); Exporter::Tiny::_exporter_install_sub(/usr/share/perl5/Exporter/Tiny.pm:335): 335: : (*{"$into\::$name"} = $sym); main::CODE(0x40019f0fb8)(/usr/share/lintian/commands/lintian.pm:36): 36: use Path::Tiny; main::CODE(0x40019f0fb8)(/usr/share/lintian/commands/lintian.pm:36): 36: use Path::Tiny; main::CODE(0x40019f0fb8)(/usr/share/lintian/commands/lintian.pm:36): 36: use Path::Tiny; Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:60): 60: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; main::CODE(0x4001b42dd8)(/usr/share/lintian/commands/lintian.pm:37): 37: use POSIX qw(:sys_wait_h); POSIX::CODE(0x4001c7dbf0)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:2): 2: use strict; POSIX::CODE(0x4001c7dbf0)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:2): 2: use strict; POSIX::CODE(0x4001c7dbf0)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:2): 2: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; POSIX::CODE(0x4001bfb370)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:3): 3: use warnings; POSIX::CODE(0x4001bfb370)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:3): 3: use warnings; POSIX::CODE(0x4001bfb370)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:3): 3: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; POSIX::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:11): 11: use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD 12: F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND 13: O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC 14: O_WRONLY SEEK_CUR SEEK_END SEEK_SET 15: S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG 16: S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID Fcntl::CODE(0x4001b83de0)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:58): 58: use strict; Fcntl::CODE(0x4001b83de0)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:58): 58: use strict; Fcntl::CODE(0x4001b83de0)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:58): 58: use strict; strict::import(/usr/share/perl/5.30/strict.pm:61): 61: shift; strict::import(/usr/share/perl/5.30/strict.pm:62): 62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:59): 59: our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:61): 61: require Exporter; Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:62): 62: require XSLoader; Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:63): 63: @ISA = qw(Exporter); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:64): 64: $VERSION = '1.13'; Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:66): 66: XSLoader::load(); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:21): 21: my ($caller, $modlibname) = caller(); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:22): 22: my $module = $caller; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:24): 24: if (@_) { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:27): 27: $_[0] = $module; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:31): 31: my $boots = "$module\::bootstrap"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:32): 32: goto &$boots if defined &$boots; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:34): 34: goto \&XSLoader::bootstrap_inherit unless $module and defined &dl_load_file; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:36): 36: my @modparts = split(/::/,$module); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:37): 37: my $modfname = $modparts[-1]; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:38): 38: my $modfname_orig = $modfname; # For .bs file search XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:40): 40: my $modpname = join('/',@modparts); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:41): 41: my $c = () = split(/::/,$caller,-1); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:42): 42: $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:44): 44: if ($modlibname !~ m{^/}) { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:68): 68: my $file = "$modlibname/auto/$modpname/$modfname.so"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:75): 75: my $bs = "$modlibname/auto/$modpname/$modfname_orig.bs"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:78): 78: goto \&XSLoader::bootstrap_inherit if not -f $file or -s $bs; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:80): 80: my $bootname = "boot_$module"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:81): 81: $bootname =~ s/\W/_/g; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:82): 82: @DynaLoader::dl_require_symbols = ($bootname); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:84): 84: my $boot_symbol_ref; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:93): 93: my $libref = dl_load_file($file, 0) or do { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:97): 97: push(@DynaLoader::dl_librefs,$libref); # record loaded object XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:99): 99: $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:104): 104: push(@DynaLoader::dl_modules, $module); # record loaded module XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:106): 106: boot: 107: my $xs = dl_install_xsub($boots, $boot_symbol_ref, $file); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:110): 110: push(@DynaLoader::dl_shared_objects, $file); # record files loaded XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:111): 111: return &$xs(@_); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:69): 69: %EXPORT_TAGS = ( 70: 'flock' => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)], 71: 'Fcompat' => [qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FEXCL FLARGEFILE 72: FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC)], 73: 'seek' => [qw(SEEK_SET SEEK_CUR SEEK_END)], 74: 'mode' => [qw(S_ISUID S_ISGID S_ISVTX S_ISTXT 75: _S_IFMT S_IFREG S_IFDIR S_IFLNK 76: S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT 77: S_IRUSR S_IWUSR S_IXUSR S_IRWXU 78: S_IRGRP S_IWGRP S_IXGRP S_IRWXG 79: S_IROTH S_IWOTH S_IXOTH S_IRWXO 80: S_IREAD S_IWRITE S_IEXEC 81: S_ISREG S_ISDIR S_ISLNK S_ISSOCK 82: S_ISBLK S_ISCHR S_ISFIFO 83: S_ISWHT S_ISENFMT 84: S_IFMT S_IMODE 85: )], 86: ); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:90): 90: @EXPORT = 91: qw( 92: FD_CLOEXEC 93: F_ALLOCSP 94: F_ALLOCSP64 95: F_COMPAT 96: F_DUP2FD 97: F_DUPFD 98: F_EXLCK 99: F_FREESP 100: F_FREESP64 101: F_FSYNC 102: F_FSYNC64 103: F_GETFD 104: F_GETFL 105: F_GETLK 106: F_GETLK64 107: F_GETOWN 108: F_NODNY 109: F_POSIX 110: F_RDACC 111: F_RDDNY 112: F_RDLCK 113: F_RWACC 114: F_RWDNY 115: F_SETFD 116: F_SETFL 117: F_SETLK 118: F_SETLK64 119: F_SETLKW 120: F_SETLKW64 121: F_SETOWN 122: F_SHARE 123: F_SHLCK 124: F_UNLCK 125: F_UNSHARE 126: F_WRACC 127: F_WRDNY 128: F_WRLCK 129: O_ACCMODE 130: O_ALIAS 131: O_APPEND 132: O_ASYNC 133: O_BINARY 134: O_CREAT 135: O_DEFER 136: O_DIRECT 137: O_DIRECTORY 138: O_DSYNC 139: O_EXCL 140: O_EXLOCK 141: O_LARGEFILE 142: O_NDELAY 143: O_NOCTTY 144: O_NOFOLLOW 145: O_NOINHERIT 146: O_NONBLOCK 147: O_RANDOM 148: O_RAW 149: O_RDONLY 150: O_RDWR 151: O_RSRC 152: O_RSYNC 153: O_SEQUENTIAL 154: O_SHLOCK 155: O_SYNC 156: O_TEMPORARY 157: O_TEXT 158: O_TRUNC 159: O_WRONLY 160: ); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:191): 191: ), map {@{$_}} values %EXPORT_TAGS); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:191): 191: ), map {@{$_}} values %EXPORT_TAGS); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:191): 191: ), map {@{$_}} values %EXPORT_TAGS); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:191): 191: ), map {@{$_}} values %EXPORT_TAGS); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:191): 191: ), map {@{$_}} values %EXPORT_TAGS); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:191): 191: ), map {@{$_}} values %EXPORT_TAGS); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:191): 191: ), map {@{$_}} values %EXPORT_TAGS); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:191): 191: ), map {@{$_}} values %EXPORT_TAGS); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:191): 191: ), map {@{$_}} values %EXPORT_TAGS); Fcntl::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/Fcntl.pm:193): 193: 1; POSIX::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:17): 17: S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR); POSIX::CODE(0x4001b83870)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:17): 17: S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR); Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:49): 49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:49): 49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; POSIX::CODE(0x4001cec660)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:225): 225: no strict; POSIX::CODE(0x4001cec660)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:225): 225: no strict; POSIX::CODE(0x4001cec660)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:225): 225: no strict; strict::unimport(/usr/share/perl/5.30/strict.pm:66): 66: shift; strict::unimport(/usr/share/perl/5.30/strict.pm:68): 68: if (@_) { strict::unimport(/usr/share/perl/5.30/strict.pm:72): 72: $^H &= ~all_bits; strict::unimport(/usr/share/perl/5.30/strict.pm:73): 73: $^H |= all_explicit_bits; POSIX::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:5): 5: our ($AUTOLOAD, %SIGRT); POSIX::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:7): 7: our $VERSION = '1.88'; POSIX::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:9): 9: require XSLoader; POSIX::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:19): 19: my $loaded; POSIX::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:24): 24: XSLoader::load(); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:21): 21: my ($caller, $modlibname) = caller(); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:22): 22: my $module = $caller; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:24): 24: if (@_) { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:27): 27: $_[0] = $module; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:31): 31: my $boots = "$module\::bootstrap"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:32): 32: goto &$boots if defined &$boots; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:34): 34: goto \&XSLoader::bootstrap_inherit unless $module and defined &dl_load_file; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:36): 36: my @modparts = split(/::/,$module); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:37): 37: my $modfname = $modparts[-1]; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:38): 38: my $modfname_orig = $modfname; # For .bs file search XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:40): 40: my $modpname = join('/',@modparts); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:41): 41: my $c = () = split(/::/,$caller,-1); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:42): 42: $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:44): 44: if ($modlibname !~ m{^/}) { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:68): 68: my $file = "$modlibname/auto/$modpname/$modfname.so"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:75): 75: my $bs = "$modlibname/auto/$modpname/$modfname_orig.bs"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:78): 78: goto \&XSLoader::bootstrap_inherit if not -f $file or -s $bs; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:80): 80: my $bootname = "boot_$module"; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:81): 81: $bootname =~ s/\W/_/g; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:82): 82: @DynaLoader::dl_require_symbols = ($bootname); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:84): 84: my $boot_symbol_ref; XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:93): 93: my $libref = dl_load_file($file, 0) or do { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:97): 97: push(@DynaLoader::dl_librefs,$libref); # record loaded object XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:99): 99: $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do { XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:104): 104: push(@DynaLoader::dl_modules, $module); # record loaded module XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:106): 106: boot: 107: my $xs = dl_install_xsub($boots, $boot_symbol_ref, $file); XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:110): 110: push(@DynaLoader::dl_shared_objects, $file); # record files loaded XSLoader::load(/usr/share/perl/5.30/XSLoader.pm:111): 111: return &$xs(@_); POSIX::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:26): 26: my %replacement = ( 27: L_tmpnam => undef, 28: atexit => 'END {}', 29: atof => undef, 30: atoi => undef, 31: atol => undef, 32: bsearch => \'not supplied', 33: calloc => undef, 34: clearerr => 'IO::Handle::clearerr', 35: div => '/, % and int', 36: execl => undef, 37: execle => undef, 38: execlp => undef, 39: execv => undef, 40: execve => undef, 41: execvp => undef, 42: fclose => 'IO::Handle::close', 43: fdopen => 'IO::Handle::new_from_fd', 44: feof => 'IO::Handle::eof', 45: ferror => 'IO::Handle::error', 46: fflush => 'IO::Handle::flush', 47: fgetc => 'IO::Handle::getc', 48: fgetpos => 'IO::Seekable::getpos', 49: fgets => 'IO::Handle::gets', 50: fileno => 'IO::Handle::fileno', 51: fopen => 'IO::File::open', 52: fprintf => 'printf', 53: fputc => 'print', 54: fputs => 'print', 55: fread => 'read', 56: free => undef, 57: freopen => 'open', 58: fscanf => '<> and regular expressions', 59: fseek => 'IO::Seekable::seek', 60: fsetpos => 'IO::Seekable::setpos', 61: fsync => 'IO::Handle::sync', 62: ftell => 'IO::Seekable::tell', 63: fwrite => 'print', 64: labs => 'abs', 65: ldiv => '/, % and int', 66: longjmp => 'die', 67: malloc => undef, 68: memchr => 'index()', 69: memcmp => 'eq', 70: memcpy => '=', 71: memmove => '=', 72: memset => 'x', 73: offsetof => undef, 74: putc => 'print', 75: putchar => 'print', 76: puts => 'print', 77: qsort => 'sort', 78: rand => \'non-portable, use Perl\'s rand instead', 79: realloc => undef, 80: scanf => '<> and regular expressions', 81: setbuf => 'IO::Handle::setbuf', 82: setjmp => 'eval {}', 83: setvbuf => 'IO::Handle::setvbuf', 84: siglongjmp => 'die', 85: sigsetjmp => 'eval {}', 86: srand => \'not supplied; refer to Perl\'s srand documentation', 87: sscanf => 'regular expressions', 88: strcat => '.=', 89: strchr => 'index()', 90: strcmp => 'eq', 91: strcpy => '=', 92: strcspn => 'regular expressions', 93: strlen => 'length', 94: strncat => '.=', 95: strncmp => 'eq', 96: strncpy => '=', 97: strpbrk => undef, 98: strrchr => 'rindex()', 99: strspn => undef, 100: strtok => undef, 101: tmpfile => 'IO::File::new_tmpfile', 102: tmpnam => 'use File::Temp', 103: ungetc => 'IO::Handle::ungetc', 104: vfprintf => undef, 105: vprintf => undef, 106: vsprintf => undef, 107: ); POSIX::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:109): 109: my %reimpl = ( 110: abs => 'x => CORE::abs($_[0])', 111: alarm => 'seconds => CORE::alarm($_[0])', 112: assert => 'expr => croak "Assertion failed" if !$_[0]', 113: atan2 => 'x, y => CORE::atan2($_[0], $_[1])', 114: chdir => 'directory => CORE::chdir($_[0])', 115: chmod => 'mode, filename => CORE::chmod($_[0], $_[1])', 116: chown => 'uid, gid, filename => CORE::chown($_[0], $_[1], $_[2])', 117: closedir => 'dirhandle => CORE::closedir($_[0])', 118: cos => 'x => CORE::cos($_[0])', 119: creat => 'filename, mode => &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1])', 120: errno => '$! + 0', 121: exit => 'status => CORE::exit($_[0])', 122: exp => 'x => CORE::exp($_[0])', 123: fabs => 'x => CORE::abs($_[0])', 124: fcntl => 'filehandle, cmd, arg => CORE::fcntl($_[0], $_[1], $_[2])', 125: fork => 'CORE::fork', 126: fstat => 'fd => CORE::open my $dup, "<&", $_[0]; CORE::stat($dup)', # Gross. 127: getc => 'handle => CORE::getc($_[0])', 128: getchar => 'CORE::getc(STDIN)', 129: getegid => '$) + 0', 130: getenv => 'name => $ENV{$_[0]}', 131: geteuid => '$> + 0', 132: getgid => '$( + 0', 133: getgrgid => 'gid => CORE::getgrgid($_[0])', 134: getgrnam => 'name => CORE::getgrnam($_[0])', 135: getgroups => 'my %seen; grep !$seen{$_}++, split " ", $)', 136: getlogin => 'CORE::getlogin()', 137: getpgrp => 'CORE::getpgrp', 138: getpid => '$$', 139: getppid => 'CORE::getppid', 140: getpwnam => 'name => CORE::getpwnam($_[0])', 141: getpwuid => 'uid => CORE::getpwuid($_[0])', 142: gets => 'scalar ', 143: getuid => '$<', 144: gmtime => 'time => CORE::gmtime($_[0])', 145: isatty => 'filehandle => -t $_[0]', 146: kill => 'pid, sig => CORE::kill $_[1], $_[0]', 147: link => 'oldfilename, newfilename => CORE::link($_[0], $_[1])', 148: localtime => 'time => CORE::localtime($_[0])', 149: log => 'x => CORE::log($_[0])', 150: mkdir => 'directoryname, mode => CORE::mkdir($_[0], $_[1])', 151: opendir => 'directory => my $dh; CORE::opendir($dh, $_[0]) ? $dh : undef', 152: pow => 'x, exponent => $_[0] ** $_[1]', 153: raise => 'sig => CORE::kill $_[0], $$; # Is this good enough', 154: readdir => 'dirhandle => CORE::readdir($_[0])', 155: remove => 'filename => (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0])', 156: rename => 'oldfilename, newfilename => CORE::rename($_[0], $_[1])', 157: rewind => 'filehandle => CORE::seek($_[0],0,0)', 158: rewinddir => 'dirhandle => CORE::rewinddir($_[0])', 159: rmdir => 'directoryname => CORE::rmdir($_[0])', 160: sin => 'x => CORE::sin($_[0])', 161: sqrt => 'x => CORE::sqrt($_[0])', 162: stat => 'filename => CORE::stat($_[0])', 163: strerror => 'errno => BEGIN { local $!; require locale; locale->import} my $e = $_[0] + 0; local $!; $! = $e; "$!"', 164: strstr => 'big, little => CORE::index($_[0], $_[1])', 165: system => 'command => CORE::system($_[0])', 166: time => 'CORE::time', 167: umask => 'mask => CORE::umask($_[0])', 168: unlink => 'filename => CORE::unlink($_[0])', 169: utime => 'filename, atime, mtime => CORE::utime($_[1], $_[2], $_[0])', 170: wait => 'CORE::wait()', 171: waitpid => 'pid, options => CORE::waitpid($_[0], $_[1])', 172: ); POSIX::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:195): 195: eval join ';', map "sub $_", keys %replacement, keys %reimpl; POSIX::SigAction::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:496): 496: package POSIX::SigSet; POSIX::SigRt::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:505): 505: require Tie::Hash; POSIX::SigRt::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:507): 507: our @ISA = 'Tie::StdHash'; POSIX::SigRt::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:509): 509: our ($_SIGRTMIN, $_SIGRTMAX, $_sigrtn); POSIX::SigRt::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:511): 511: our $SIGACTION_FLAGS = 0; POSIX::SigRt::CODE(0x4001b42dd8)(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:563): 563: tie %POSIX::SIGRT, 'POSIX::SigRt'; Tie::StdHash::TIEHASH(/usr/share/perl/5.30/Tie/Hash.pm:248): 248: sub TIEHASH { bless {}, $_[0] } main::CODE(0x4001b42dd8)(/usr/share/lintian/commands/lintian.pm:37): 37: use POSIX qw(:sys_wait_h); main::CODE(0x4001b42dd8)(/usr/share/lintian/commands/lintian.pm:37): 37: use POSIX qw(:sys_wait_h); POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:175): 175: my $pkg = shift; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:177): 177: load_imports() unless $loaded++; POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:251): 251: my %default_export_tags = ( # cf. exports policy below POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:406): 406: if ($^O eq 'MSWin32') { POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:439): 439: stdlib_h_c99 => [ @{$default_export_tags{stdlib_h}}, 'strtold' ], POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:426): 426: math_h_c99 => [ @{$default_export_tags{math_h}}, qw( 427: Inf NaN acosh asinh atanh cbrt copysign erf erfc exp2 expm1 fdim fma 428: fmax fmin fpclassify hypot ilogb isfinite isgreater isgreaterequal 429: isinf isless islessequal islessgreater isnan isnormal isunordered j0 j1 430: jn lgamma log1p log2 logb lrint lround nan nearbyint nextafter nexttoward 431: remainder remquo rint round scalbn signbit tgamma trunc y0 y1 yn 432: )], POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:439): 439: stdlib_h_c99 => [ @{$default_export_tags{stdlib_h}}, 'strtold' ], POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:469): 469: my ( %export, %export_ok ); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:469): 469: my ( %export, %export_ok ); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:470): 470: @export {map {@$_} values %default_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:471): 471: @export_ok{map {@$_} values %other_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:471): 471: @export_ok{map {@$_} values %other_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:471): 471: @export_ok{map {@$_} values %other_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:471): 471: @export_ok{map {@$_} values %other_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:471): 471: @export_ok{map {@$_} values %other_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:471): 471: @export_ok{map {@$_} values %other_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:471): 471: @export_ok{map {@$_} values %other_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:471): 471: @export_ok{map {@$_} values %other_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:471): 471: @export_ok{map {@$_} values %other_export_tags} = (); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:474): 474: our @EXPORT = keys %export; POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:479): 479: grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:481): 481: our %EXPORT_TAGS = ( %default_export_tags, %other_export_tags ); POSIX::load_imports(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:484): 484: require Exporter; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:180): 180: s/^(?=\w+_h$)/:/ for my @list = @_; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:182): 182: my @unimpl = sort grep { exists $replacement{$_} } @list; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:182): 182: my @unimpl = sort grep { exists $replacement{$_} } @list; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:183): 183: if (@unimpl) { POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:191): 191: local $Exporter::ExportLevel = 1; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:192): 192: Exporter::import($pkg,@list); Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:49): 49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:49): 49: foreach (@$exports, @{"$pkg\::EXPORT_OK"}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::export(/usr/share/perl/5.30/Exporter.pm:25): 25: goto &{as_heavy()}; Exporter::export(/usr/share/perl/5.30/Exporter.pm:25): 25: goto &{as_heavy()}; Exporter::as_heavy(/usr/share/perl/5.30/Exporter.pm:16): 16: require Exporter::Heavy; Exporter::as_heavy(/usr/share/perl/5.30/Exporter.pm:19): 19: my $c = (caller(1))[3]; Exporter::as_heavy(/usr/share/perl/5.30/Exporter.pm:20): 20: $c =~ s/.*:://; Exporter::as_heavy(/usr/share/perl/5.30/Exporter.pm:21): 21: \&{"Exporter::Heavy::heavy_$c"}; Exporter::as_heavy(/usr/share/perl/5.30/Exporter.pm:21): 21: \&{"Exporter::Heavy::heavy_$c"}; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:42): 42: my $oldwarn = $SIG{__WARN__}; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:57): 57: }; 58: local $SIG{__DIE__} = sub { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:63): 63: }; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:65): 65: my($pkg, $callpkg, @imports) = @_; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:66): 66: my($type, $sym, $cache_is_current, $oops); Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:68): 68: $Exporter::Cache{$pkg} ||= {}); Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:67): 67: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:70): 70: if (@imports) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:71): 71: if (!%$export_cache) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:76): 76: if (grep m{^[/!:]}, @imports) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:77): 77: my $tagsref = \%{"${pkg}::EXPORT_TAGS"}; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:77): 77: my $tagsref = \%{"${pkg}::EXPORT_TAGS"}; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:78): 78: my $tagdata; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:79): 79: my %imports; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:80): 80: my($remove, $spec, @names, @allexports); Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:82): 82: unshift @imports, ':DEFAULT' if $imports[0] =~ m/^!/; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:83): 83: foreach $spec (@imports){ Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:84): 84: $remove = $spec =~ s/^!//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:86): 86: if ($spec =~ s/^://){ Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:87): 87: if ($spec eq 'DEFAULT'){ Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:91): 91: @names = @$tagdata; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:108): 108: warn "Import ".($remove ? "del":"add").": @names " 109: if $Exporter::Verbose; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:111): 111: if ($remove) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:115): 115: @imports{@names} = (1) x @names; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:118): 118: @imports = keys %imports; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:121): 121: my @carp; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:122): 122: foreach $sym (@imports) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:123): 123: if (!$export_cache->{$sym}) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:123): 123: if (!$export_cache->{$sym}) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:123): 123: if (!$export_cache->{$sym}) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:123): 123: if (!$export_cache->{$sym}) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:123): 123: if (!$export_cache->{$sym}) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:123): 123: if (!$export_cache->{$sym}) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:123): 123: if (!$export_cache->{$sym}) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:123): 123: if (!$export_cache->{$sym}) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:157): 157: if ($oops) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:167): 167: $Exporter::FailCache{$pkg} ||= {}); Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:166): 166: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:169): 169: if (@$fail) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:194): 194: warn "Importing into $callpkg from $pkg: ", 195: join(", ",sort @imports) if $Exporter::Verbose; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:197): 197: foreach $sym (@imports) { Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; Exporter::Heavy::heavy_export(/usr/share/perl/5.30/Exporter/Heavy.pm:199): 199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 200: unless $sym =~ s/^(\W)//; main::CODE(0x40019eaa28)(/usr/share/lintian/commands/lintian.pm:41): 41: use Lintian::Data; Lintian::Data::CODE(0x4001d70798)(/usr/share/perl5/Lintian/Data.pm:21): 21: use v5.20; Lintian::Data::CODE(0x4001d70798)(/usr/share/perl5/Lintian/Data.pm:21): 21: use v5.20; Lintian::Data::CODE(0x4001d70798)(/usr/share/perl5/Lintian/Data.pm:21): 21: use v5.20; Lintian::Data::CODE(0x4001d5e780)(/usr/share/perl5/Lintian/Data.pm:22): 22: use warnings; Lintian::Data::CODE(0x4001d5e780)(/usr/share/perl5/Lintian/Data.pm:22): 22: use warnings; Lintian::Data::CODE(0x4001d5e780)(/usr/share/perl5/Lintian/Data.pm:22): 22: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; Lintian::Data::CODE(0x4001cdc638)(/usr/share/perl5/Lintian/Data.pm:23): 23: use utf8; Lintian::Data::CODE(0x4001cdc638)(/usr/share/perl5/Lintian/Data.pm:23): 23: use utf8; Lintian::Data::CODE(0x4001cdc638)(/usr/share/perl5/Lintian/Data.pm:23): 23: use utf8; utf8::import(/usr/share/perl/5.30/utf8.pm:8): 8: $^H |= $utf8::hint_bits; Lintian::Data::CODE(0x4001d70870)(/usr/share/perl5/Lintian/Data.pm:24): 24: use autodie; Lintian::Data::CODE(0x4001d70870)(/usr/share/perl5/Lintian/Data.pm:24): 24: use autodie; Lintian::Data::CODE(0x4001d70870)(/usr/share/perl5/Lintian/Data.pm:24): 24: use autodie; autodie::import(/usr/share/perl/5.30/autodie.pm:58): 58: splice(@_,1,0,Fatal::LEXICAL_TAG); autodie::import(/usr/share/perl/5.30/autodie.pm:59): 59: goto &Fatal::import; Fatal::import(/usr/share/perl/5.30/Fatal.pm:355): 355: my $class = shift(@_); Fatal::import(/usr/share/perl/5.30/Fatal.pm:356): 356: my @original_args = @_; Fatal::import(/usr/share/perl/5.30/Fatal.pm:357): 357: my $void = 0; Fatal::import(/usr/share/perl/5.30/Fatal.pm:358): 358: my $lexical = 0; Fatal::import(/usr/share/perl/5.30/Fatal.pm:359): 359: my $insist_hints = 0; Fatal::import(/usr/share/perl/5.30/Fatal.pm:361): 361: my ($pkg, $filename) = caller(); Fatal::import(/usr/share/perl/5.30/Fatal.pm:363): 363: @_ or return; # 'use Fatal' is a no-op. Fatal::import(/usr/share/perl/5.30/Fatal.pm:368): 368: if ($_[0] eq LEXICAL_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:369): 369: $lexical = 1; Fatal::import(/usr/share/perl/5.30/Fatal.pm:370): 370: shift @_; Fatal::import(/usr/share/perl/5.30/Fatal.pm:377): 377: if ($class ne 'autodie' and not $class->isa('autodie')) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:410): 410: if (@_ == 0) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:411): 411: push(@_, ':default'); Fatal::import(/usr/share/perl/5.30/Fatal.pm:415): 415: if ( grep { $_ eq VOID_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:415): 415: if ( grep { $_ eq VOID_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:420): 420: if ( grep { $_ eq LEXICAL_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:420): 420: if ( grep { $_ eq LEXICAL_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:425): 425: my @fatalise_these = @_; Fatal::import(/usr/share/perl/5.30/Fatal.pm:428): 428: my %unload_later; Fatal::import(/usr/share/perl/5.30/Fatal.pm:430): 430: my %install_subs; Fatal::import(/usr/share/perl/5.30/Fatal.pm:446): 446: for my $func ($class->_translate_import_args(@fatalise_these)) { Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:603): 603: my ($class, @args) = @_; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:604): 604: my @result; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:605): 605: my %seen; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:607): 607: if (@args < 2) { Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:610): 610: return unless @args; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:613): 613: return @args unless exists($TAGS{$args[0]}); Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:704): 704: return $cached; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:508): 508: install_subs($pkg, \%install_subs); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:120): 120: my ($target_pkg, $subs_to_reinstate) = @_; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:122): 122: my $pkg_sym = "${target_pkg}::"; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:125): 125: foreach my $sub_name (sort keys(%{$subs_to_reinstate})) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:125): 125: foreach my $sub_name (sort keys(%{$subs_to_reinstate})) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:158): 158: *$full_path = $sub_ref; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:162): 162: return; Fatal::import(/usr/share/perl/5.30/Fatal.pm:510): 510: if ($lexical) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:519): 519: $^H |= 0x020000; Fatal::import(/usr/share/perl/5.30/Fatal.pm:526): 526: }); autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:25): 25: my ($hook) = @_; autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:33): 33: $^H |= 0x020000; autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:35): 35: my $stack = $^H{$H_STACK_KEY}; autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:36): 36: if (not defined($stack)) { autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:37): 37: $stack = autodie::Scope::GuardStack->new; autodie::Scope::GuardStack::new(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:19): 19: my ($class) = @_; autodie::Scope::GuardStack::new(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:21): 21: return bless([], $class); autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:38): 38: $^H{$H_STACK_KEY} = $stack; autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:41): 41: $stack->push_hook($hook); autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:25): 25: my ($self, $hook) = @_; autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:26): 26: my $h_key = $H_KEY_STEM . ($COUNTER++); autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:27): 27: my $size = @{$self}; 28: $^H{$h_key} = autodie::Scope::Guard->new(sub { autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:27): 27: my $size = @{$self}; 28: $^H{$h_key} = autodie::Scope::Guard->new(sub { autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:51): 51: }); autodie::Scope::Guard::new(/usr/share/perl/5.30/autodie/Scope/Guard.pm:14): 14: my ($class, $handler) = @_; autodie::Scope::Guard::new(/usr/share/perl/5.30/autodie/Scope/Guard.pm:15): 15: return bless($handler, $class); autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:52): 52: push(@{$self}, [$hook, $h_key]); autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:52): 52: push(@{$self}, [$hook, $h_key]); autodie::Scope::GuardStack::push_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:53): 53: return; autodie::Util::on_end_of_compile_scope(/usr/share/perl/5.30/autodie/Util.pm:42): 42: return; Fatal::import(/usr/share/perl/5.30/Fatal.pm:536): 536: $^H{autodie} = "$PACKAGE @original_args"; Fatal::import(/usr/share/perl/5.30/Fatal.pm:540): 540: return; Lintian::Data::CODE(0x4001cf4d20)(/usr/share/perl5/Lintian/Data.pm:26): 26: use Carp qw(croak confess); Lintian::Data::CODE(0x4001cf4d20)(/usr/share/perl5/Lintian/Data.pm:26): 26: use Carp qw(croak confess); Lintian::Data::CODE(0x4001cf4d20)(/usr/share/perl5/Lintian/Data.pm:26): 26: use Carp qw(croak confess); Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Lintian::Data::CODE(0x4001c5b598)(/usr/share/perl5/Lintian/Data.pm:27): 27: use POSIX qw(ENOENT); Lintian::Data::CODE(0x4001c5b598)(/usr/share/perl5/Lintian/Data.pm:27): 27: use POSIX qw(ENOENT); Lintian::Data::CODE(0x4001c5b598)(/usr/share/perl5/Lintian/Data.pm:27): 27: use POSIX qw(ENOENT); POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:175): 175: my $pkg = shift; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:177): 177: load_imports() unless $loaded++; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:180): 180: s/^(?=\w+_h$)/:/ for my @list = @_; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:182): 182: my @unimpl = sort grep { exists $replacement{$_} } @list; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:182): 182: my @unimpl = sort grep { exists $replacement{$_} } @list; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:183): 183: if (@unimpl) { POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:191): 191: local $Exporter::ExportLevel = 1; POSIX::import(/usr/lib/aarch64-linux-gnu/perl/5.30/POSIX.pm:192): 192: Exporter::import($pkg,@list); Exporter::import(/usr/share/perl/5.30/Exporter.pm:29): 29: my $pkg = shift; Exporter::import(/usr/share/perl/5.30/Exporter.pm:30): 30: my $callpkg = caller($ExportLevel); Exporter::import(/usr/share/perl/5.30/Exporter.pm:32): 32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:38): 38: my $exports = \@{"$pkg\::EXPORT"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:41): 41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:42): 42: return export $pkg, $callpkg, @_ 43: if $Verbose or $Debug or $fail && @$fail > 1; Exporter::import(/usr/share/perl/5.30/Exporter.pm:44): 44: my $export_cache = ($Cache{$pkg} ||= {}); Exporter::import(/usr/share/perl/5.30/Exporter.pm:45): 45: my $args = @_ or @_ = @$exports; Exporter::import(/usr/share/perl/5.30/Exporter.pm:47): 47: if ($args and not %$export_cache) { 48: s/^&//, $export_cache->{$_} = 1 Exporter::import(/usr/share/perl/5.30/Exporter.pm:51): 51: my $heavy; Exporter::import(/usr/share/perl/5.30/Exporter.pm:54): 54: if ($args or $fail) { 55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} 56: or $fail and @$fail and $_ eq $fail->[0])) and last Exporter::import(/usr/share/perl/5.30/Exporter.pm:57): 57: foreach (@_); Exporter::import(/usr/share/perl/5.30/Exporter.pm:62): 62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 63: local $SIG{__WARN__} = Exporter::import(/usr/share/perl/5.30/Exporter.pm:64): 64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Exporter::import(/usr/share/perl/5.30/Exporter.pm:66): 66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; Lintian::Data::CODE(0x4001cf4978)(/usr/share/perl5/Lintian/Data.pm:29): 29: use Lintian::Util qw(strip); Lintian::Util::CODE(0x4001da11d0)(/usr/share/perl5/Lintian/Util.pm:25): 25: use v5.20; Lintian::Util::CODE(0x4001da11d0)(/usr/share/perl5/Lintian/Util.pm:25): 25: use v5.20; Lintian::Util::CODE(0x4001da11d0)(/usr/share/perl5/Lintian/Util.pm:25): 25: use v5.20; Lintian::Util::CODE(0x4001da1080)(/usr/share/perl5/Lintian/Util.pm:26): 26: use warnings; Lintian::Util::CODE(0x4001da1080)(/usr/share/perl5/Lintian/Util.pm:26): 26: use warnings; Lintian::Util::CODE(0x4001da1080)(/usr/share/perl5/Lintian/Util.pm:26): 26: use warnings; warnings::import(/usr/share/perl/5.30/warnings.pm:333): 333: shift; warnings::import(/usr/share/perl/5.30/warnings.pm:335): 335: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; warnings::import(/usr/share/perl/5.30/warnings.pm:339): 339: push @_, 'all' 340: if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL')); warnings::import(/usr/share/perl/5.30/warnings.pm:342): 342: ${^WARNING_BITS} = _bits($mask, @_); warnings::_bits(/usr/share/perl/5.30/warnings.pm:297): 297: my $mask = shift ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:298): 298: my $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:299): 299: my $fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:300): 300: my $no_fatal = 0 ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:302): 302: $mask = _expand_bits($mask); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:278): 278: my $bits = shift; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:279): 279: my $want_len = ($LAST_BIT + 7) >> 3; warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:280): 280: my $len = length($bits); warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:281): 281: if ($len != $want_len) { warnings::_expand_bits(/usr/share/perl/5.30/warnings.pm:293): 293: return $bits; warnings::_bits(/usr/share/perl/5.30/warnings.pm:303): 303: foreach my $word ( @_ ) { warnings::_bits(/usr/share/perl/5.30/warnings.pm:304): 304: if ($word eq 'FATAL') { warnings::_bits(/usr/share/perl/5.30/warnings.pm:313): 313: $mask |= $catmask ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:314): 314: $mask |= $DeadBits{$word} if $fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:315): 315: $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ; warnings::_bits(/usr/share/perl/5.30/warnings.pm:321): 321: return $mask ; Lintian::Util::CODE(0x4001d7f950)(/usr/share/perl5/Lintian/Util.pm:27): 27: use utf8; Lintian::Util::CODE(0x4001d7f950)(/usr/share/perl5/Lintian/Util.pm:27): 27: use utf8; Lintian::Util::CODE(0x4001d7f950)(/usr/share/perl5/Lintian/Util.pm:27): 27: use utf8; utf8::import(/usr/share/perl/5.30/utf8.pm:8): 8: $^H |= $utf8::hint_bits; Lintian::Util::CODE(0x4001da6bf0)(/usr/share/perl5/Lintian/Util.pm:28): 28: use autodie; Lintian::Util::CODE(0x4001da6bf0)(/usr/share/perl5/Lintian/Util.pm:28): 28: use autodie; Lintian::Util::CODE(0x4001da6bf0)(/usr/share/perl5/Lintian/Util.pm:28): 28: use autodie; autodie::import(/usr/share/perl/5.30/autodie.pm:58): 58: splice(@_,1,0,Fatal::LEXICAL_TAG); autodie::import(/usr/share/perl/5.30/autodie.pm:59): 59: goto &Fatal::import; Fatal::import(/usr/share/perl/5.30/Fatal.pm:355): 355: my $class = shift(@_); Fatal::import(/usr/share/perl/5.30/Fatal.pm:356): 356: my @original_args = @_; Fatal::import(/usr/share/perl/5.30/Fatal.pm:357): 357: my $void = 0; Fatal::import(/usr/share/perl/5.30/Fatal.pm:358): 358: my $lexical = 0; Fatal::import(/usr/share/perl/5.30/Fatal.pm:359): 359: my $insist_hints = 0; Fatal::import(/usr/share/perl/5.30/Fatal.pm:361): 361: my ($pkg, $filename) = caller(); Fatal::import(/usr/share/perl/5.30/Fatal.pm:363): 363: @_ or return; # 'use Fatal' is a no-op. Fatal::import(/usr/share/perl/5.30/Fatal.pm:368): 368: if ($_[0] eq LEXICAL_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:369): 369: $lexical = 1; Fatal::import(/usr/share/perl/5.30/Fatal.pm:370): 370: shift @_; Fatal::import(/usr/share/perl/5.30/Fatal.pm:377): 377: if ($class ne 'autodie' and not $class->isa('autodie')) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:410): 410: if (@_ == 0) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:411): 411: push(@_, ':default'); Fatal::import(/usr/share/perl/5.30/Fatal.pm:415): 415: if ( grep { $_ eq VOID_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:415): 415: if ( grep { $_ eq VOID_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:420): 420: if ( grep { $_ eq LEXICAL_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:420): 420: if ( grep { $_ eq LEXICAL_TAG } @_ ) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:425): 425: my @fatalise_these = @_; Fatal::import(/usr/share/perl/5.30/Fatal.pm:428): 428: my %unload_later; Fatal::import(/usr/share/perl/5.30/Fatal.pm:430): 430: my %install_subs; Fatal::import(/usr/share/perl/5.30/Fatal.pm:446): 446: for my $func ($class->_translate_import_args(@fatalise_these)) { Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:603): 603: my ($class, @args) = @_; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:604): 604: my @result; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:605): 605: my %seen; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:607): 607: if (@args < 2) { Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:610): 610: return unless @args; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:613): 613: return @args unless exists($TAGS{$args[0]}); Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:701): 701: my ($class, $tag) = @_; Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:703): 703: if (my $cached = $tag_cache{$tag}) { Fatal::_expand_tag(/usr/share/perl/5.30/Fatal.pm:704): 704: return $cached; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::_translate_import_args(/usr/share/perl/5.30/Fatal.pm:620): 620: return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) }; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( 494: $func, $pkg, $void, $lexical, $filename, 495: $insist_this, \%install_subs, 496: ); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1173): 1173: my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type); Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1174): 1174: my $ini = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1175): 1175: my $name = $sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1178): 1178: if (index($sub, '::') == -1) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1179): 1179: $sub = "${pkg}::$sub"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1180): 1180: if (substr($name, 0, 1) eq '&') { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1191): 1191: if (not $lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1199): 1199: warn "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1200): 1200: croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1202): 1202: if (defined(&$sub)) { # user subroutine Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1331): 1331: $call = "CORE::$name"; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1332): 1332: if (exists($CORE_prototype_cache{$call})) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1333): 1333: $proto = $CORE_prototype_cache{$call}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1345): 1345: $core = 1; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1358): 1358: $cache = $Cached_fatalised_sub{$class}{$sub}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1359): 1359: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1360): 1360: $cache_type = CACHE_AUTODIE_LEAK_GUARD; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1366): 1366: if (my $subref = $cache->{$cache_type}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1375): 1375: if ($core && exists $reusable_builtins{$call}) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1378): 1378: $code = $reusable_builtins{$call}{$lexical}; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1379): 1379: if (!$lexical && defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1385): 1385: if (!($lexical && $core) && !defined($code)) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1409): 1409: my $installed_sub = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1411): 1411: if ($lexical) { Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1412): 1412: $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call, 1413: $pkg, $proto); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1481): 1481: my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_; Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1600): 1600: }; # <-- end of leak guard Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1604): 1604: if (defined $proto) { Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1607): 1607: set_prototype(\&$leak_guard, $proto); Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:55): 55: my ( $code, $proto ) = @_; Scalar::Util::set_prototype(/usr/lib/aarch64-linux-gnu/perl/5.30/Scalar/Util.pm:56): 56: return Sub::Util::set_prototype( $proto, $code ); Fatal::_make_leak_guard(/usr/share/perl/5.30/Fatal.pm:1610): 1610: return $leak_guard; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1416): 1416: $cache->{$cache_type} = $code; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1418): 1418: $install_subs->{$name} = $installed_sub; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1423): 1423: $Is_fatalised_sub{$installed_sub} = $sref; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:215): 215: my($s, $k, $v) = @_; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:216): 216: if (ref $k) { Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:217): 217: $s->[0]{refaddr($k)} = [$k, $v]; Tie::RefHash::STORE(/usr/share/perl/5.30/Tie/RefHash.pm:222): 222: $v; Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1425): 1425: return $sref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:498): 498: $Original_user_sub{$sub} ||= $sub_ref; Fatal::import(/usr/share/perl/5.30/Fatal.pm:504): 504: $unload_later{$func} = $sub_ref if $lexical; Fatal::import(/usr/share/perl/5.30/Fatal.pm:448): 448: if ($func eq VOID_TAG) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:463): 463: my $insist_this = $insist_hints; Fatal::import(/usr/share/perl/5.30/Fatal.pm:465): 465: if (substr($func, 0, 1) eq '!') { Fatal::import(/usr/share/perl/5.30/Fatal.pm:477): 477: my $sub = $func; Fatal::import(/usr/share/perl/5.30/Fatal.pm:478): 478: $sub = "${pkg}::$sub" unless $sub =~ /::/; Fatal::import(/usr/share/perl/5.30/Fatal.pm:484): 484: if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { Fatal::import(/usr/share/perl/5.30/Fatal.pm:493): 493: my $sub_ref = $class->_make_fatal( ^C494: $func, $pkg, $void, $lexical, $filename, Fatal::_make_fatal(/usr/share/perl/5.30/Fatal.pm:1172): 1172: my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_;  [0] DB<0> q autodie::Scope::Guard::DESTROY(/usr/share/perl/5.30/autodie/Scope/Guard.pm:19): 19: my ($self) = @_; autodie::Scope::Guard::DESTROY(/usr/share/perl/5.30/autodie/Scope/Guard.pm:21): 21: $self->(); autodie::Scope::Guard=CODE(0x4001d7fa70)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:50): 50: $self->_pop_hook while $self && @{$self} > $size; autodie::Scope::Guard=CODE(0x4001d7fa70)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:50): 50: $self->_pop_hook while $self && @{$self} > $size; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:57): 57: my ($self) = @_; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:58): 58: my ($hook, $key) = @{ pop(@{$self}) }; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:58): 58: my ($hook, $key) = @{ pop(@{$self}) }; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:58): 58: my ($hook, $key) = @{ pop(@{$self}) }; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:59): 59: my $ref = delete($^H{$key}); autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:60): 60: $hook->(); Fatal::CODE(0x4001d7f818)(/usr/share/perl/5.30/Fatal.pm:525): 525: install_subs($pkg, \%unload_later); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:120): 120: my ($target_pkg, $subs_to_reinstate) = @_; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:122): 122: my $pkg_sym = "${target_pkg}::"; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:125): 125: foreach my $sub_name (sort keys(%{$subs_to_reinstate})) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:125): 125: foreach my $sub_name (sort keys(%{$subs_to_reinstate})) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:162): 162: return; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:61): 61: return; autodie::Scope::Guard=CODE(0x4001d7fa70)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:50): 50: $self->_pop_hook while $self && @{$self} > $size; autodie::Scope::GuardStack::DESTROY(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:65): 65: my ($self) = @_; autodie::Scope::GuardStack::DESTROY(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:71): 71: $self->_pop_hook while @{$self}; autodie::Scope::GuardStack::DESTROY(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:71): 71: $self->_pop_hook while @{$self}; autodie::Scope::GuardStack::DESTROY(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:72): 72: return; autodie::Scope::Guard::DESTROY(/usr/share/perl/5.30/autodie/Scope/Guard.pm:19): 19: my ($self) = @_; autodie::Scope::Guard::DESTROY(/usr/share/perl/5.30/autodie/Scope/Guard.pm:21): 21: $self->(); autodie::Scope::Guard=CODE(0x4001b448b8)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:50): 50: $self->_pop_hook while $self && @{$self} > $size; autodie::Scope::Guard=CODE(0x4001b448b8)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:50): 50: $self->_pop_hook while $self && @{$self} > $size; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:57): 57: my ($self) = @_; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:58): 58: my ($hook, $key) = @{ pop(@{$self}) }; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:58): 58: my ($hook, $key) = @{ pop(@{$self}) }; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:58): 58: my ($hook, $key) = @{ pop(@{$self}) }; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:59): 59: my $ref = delete($^H{$key}); autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:60): 60: $hook->(); Fatal::CODE(0x40019f0730)(/usr/share/perl/5.30/Fatal.pm:525): 525: install_subs($pkg, \%unload_later); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:120): 120: my ($target_pkg, $subs_to_reinstate) = @_; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:122): 122: my $pkg_sym = "${target_pkg}::"; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:125): 125: foreach my $sub_name (sort keys(%{$subs_to_reinstate})) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:125): 125: foreach my $sub_name (sort keys(%{$subs_to_reinstate})) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:132): 132: my $sub_ref = $subs_to_reinstate->{$sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:134): 134: my $full_path = ${pkg_sym}.${sub_name}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:135): 135: my $oldglob = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:138): 138: delete($pkg_sym->{$sub_name}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:144): 144: local *alias = *$full_path; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:152): 152: foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:154): 154: *alias = *$oldglob{$slot}; autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:153): 153: next unless defined(*$oldglob{$slot}); autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:157): 157: if ($sub_ref) { autodie::Util::install_subs(/usr/share/perl/5.30/autodie/Util.pm:162): 162: return; autodie::Scope::GuardStack::_pop_hook(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:61): 61: return; autodie::Scope::Guard=CODE(0x4001b448b8)(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:50): 50: $self->_pop_hook while $self && @{$self} > $size; autodie::Scope::GuardStack::DESTROY(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:65): 65: my ($self) = @_; autodie::Scope::GuardStack::DESTROY(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:71): 71: $self->_pop_hook while @{$self}; autodie::Scope::GuardStack::DESTROY(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:71): 71: $self->_pop_hook while @{$self}; autodie::Scope::GuardStack::DESTROY(/usr/share/perl/5.30/autodie/Scope/GuardStack.pm:72): 72: return; # Script done on 2020-06-01 20:06:06+00:00 [COMMAND_EXIT_CODE="0"]