/usr/lib/perl5/PDL/Perldl2/Script.pm is in pdl 1:2.007-2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | package PDL::Perldl2::Script;
use Moose;
use namespace::clean -except => [ qw(meta) ];
extends 'Devel::REPL::Script';
sub _startup_def {
return "PDL/default.pdl" if $^O =~ /win32/i;
return "PDL/default.perldlrc";
}
sub load_rcfile {
my ($self, $rc_file) = @_;
my $HOME = $ENV{HOME};
if ($^O =~ /win32/i and
(! defined($HOME)) or
(defined($HOME) and $HOME eq "")) {
$HOME = $ENV{USERPROFILE};
$HOME =~ s/\\/\//g;
}
print STDERR "load_rcfile: got \$HOME = $HOME\n";
# get rc file name
my $startup_file = _startup_def();
foreach my $startup_suffix (qw( .pdlrc .perldlrc )) {
if ( -e "$HOME/$startup_suffix" ) {
$startup_file = "$HOME/$startup_suffix";
last;
}
}
print STDERR "load_rcfile: loading $startup_file\n";
$self->apply_script($startup_file);
# load local.perldlrc if it exists
foreach my $local_startup_file (qw( local.pdlrc local.perldlrc )) {
if ( -e $local_startup_file ) {
print STDERR "load_rcfile: loading $local_startup_file\n";
$self->apply_script($local_startup_file);
last;
}
}
}
# Global and local startup
1;
|