Server: appserver-7f0f8755-nginx-15961cad18524ec5a9db05f2a6a7e440
Current directory: /usr/lib/x86_64-linux-gnu/perl-base
Software: nginx/1.27.5
Shell Command
Create a new file
Upload file
File: lib.pm
package lib; # THIS FILE IS AUTOMATICALLY GENERATED FROM lib_pm.PL. # ANY CHANGES TO THIS FILE WILL BE OVERWRITTEN BY THE NEXT PERL BUILD. use Config; use strict; my $archname = $Config{archname}; my $version = $Config{version}; my @inc_version_list = reverse split / /, $Config{inc_version_list}; our @ORIG_INC = @INC; # take a handy copy of 'original' value our $VERSION = '0.65'; sub import { shift; my %names; foreach (reverse @_) { my $path = $_; # we'll be modifying it, so break the alias if ($path eq '') { require Carp; Carp::carp("Empty compile time value given to use lib"); } if ($path !~ /\.par$/i && -e $path && ! -d _) { require Carp; Carp::carp("Parameter to use lib must be directory, not file"); } unshift(@INC, $path); # Add any previous version directories we found at configure time foreach my $incver (@inc_version_list) { my $dir = "$path/$incver"; unshift(@INC, $dir) if -d $dir; } # Put a corresponding archlib directory in front of $path if it # looks like $path has an archlib directory below it. my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir) = _get_dirs($path); unshift(@INC, $arch_dir) if -d $arch_auto_dir; unshift(@INC, $version_dir) if -d $version_dir; unshift(@INC, $version_arch_dir) if -d $version_arch_dir; } # remove trailing duplicates @INC = grep { ++$names{$_} == 1 } @INC; return; } sub unimport { shift; my %names; foreach my $path (@_) { my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir) = _get_dirs($path); ++$names{$path}; ++$names{$arch_dir} if -d $arch_auto_dir; ++$names{$version_dir} if -d $version_dir; ++$names{$version_arch_dir} if -d $version_arch_dir; } # Remove ALL instances of each named directory. @INC = grep { !exists $names{$_} } @INC; return; } sub _get_dirs { my($dir) = @_; my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir); $arch_auto_dir = "$dir/$archname/auto"; $arch_dir = "$dir/$archname"; $version_dir = "$dir/$version"; $version_arch_dir = "$dir/$version/$archname"; return($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir); } 1; __END__
.
50 Items
Change directory
Remove directory
Rename directory
..
1292 Items
Change directory
Remove directory
Rename directory
AutoLoader.pm
5.36 KB
Edit
Delete
Copy
Move
Remame
Carp
1 Items
Change directory
Remove directory
Rename directory
Carp.pm
24.8 KB
Edit
Delete
Copy
Move
Remame
Config.pm
3.14 KB
Edit
Delete
Copy
Move
Remame
Config_git.pl
0.4 KB
Edit
Delete
Copy
Move
Remame
Config_heavy.pl
54.48 KB
Edit
Delete
Copy
Move
Remame
Cwd.pm
16.62 KB
Edit
Delete
Copy
Move
Remame
DynaLoader.pm
11 KB
Edit
Delete
Copy
Move
Remame
Errno.pm
4.8 KB
Edit
Delete
Copy
Move
Remame
Exporter
1 Items
Change directory
Remove directory
Rename directory
Exporter.pm
2.28 KB
Edit
Delete
Copy
Move
Remame
Fcntl.pm
2.05 KB
Edit
Delete
Copy
Move
Remame
File
6 Items
Change directory
Remove directory
Rename directory
FileHandle.pm
2.06 KB
Edit
Delete
Copy
Move
Remame
Getopt
1 Items
Change directory
Remove directory
Rename directory
Hash
1 Items
Change directory
Remove directory
Rename directory
IO
7 Items
Change directory
Remove directory
Rename directory
IO.pm
0.46 KB
Edit
Delete
Copy
Move
Remame
IPC
2 Items
Change directory
Remove directory
Rename directory
List
1 Items
Change directory
Remove directory
Rename directory
POSIX.pm
19.91 KB
Edit
Delete
Copy
Move
Remame
Scalar
1 Items
Change directory
Remove directory
Rename directory
SelectSaver.pm
0.34 KB
Edit
Delete
Copy
Move
Remame
Socket.pm
13.5 KB
Edit
Delete
Copy
Move
Remame
Symbol.pm
2.15 KB
Edit
Delete
Copy
Move
Remame
Text
3 Items
Change directory
Remove directory
Rename directory
Tie
1 Items
Change directory
Remove directory
Rename directory
XSLoader.pm
4.02 KB
Edit
Delete
Copy
Move
Remame
attributes.pm
3 KB
Edit
Delete
Copy
Move
Remame
auto
10 Items
Change directory
Remove directory
Rename directory
base.pm
8.7 KB
Edit
Delete
Copy
Move
Remame
builtin.pm
0.21 KB
Edit
Delete
Copy
Move
Remame
bytes.pm
0.48 KB
Edit
Delete
Copy
Move
Remame
bytes_heavy.pl
0.74 KB
Edit
Delete
Copy
Move
Remame
constant.pm
5.6 KB
Edit
Delete
Copy
Move
Remame
feature.pm
7.38 KB
Edit
Delete
Copy
Move
Remame
fields.pm
4.89 KB
Edit
Delete
Copy
Move
Remame
integer.pm
0.17 KB
Edit
Delete
Copy
Move
Remame
lib.pm
2.23 KB
Edit
Delete
Copy
Move
Remame
locale.pm
3.37 KB
Edit
Delete
Copy
Move
Remame
overload.pm
4.39 KB
Edit
Delete
Copy
Move
Remame
overloading.pm
0.94 KB
Edit
Delete
Copy
Move
Remame
parent.pm
0.45 KB
Edit
Delete
Copy
Move
Remame
re.pm
9.33 KB
Edit
Delete
Copy
Move
Remame
strict.pm
1.57 KB
Edit
Delete
Copy
Move
Remame
unicore
2 Items
Change directory
Remove directory
Rename directory
utf8.pm
0.33 KB
Edit
Delete
Copy
Move
Remame
vars.pm
1.12 KB
Edit
Delete
Copy
Move
Remame
warnings
1 Items
Change directory
Remove directory
Rename directory
warnings.pm
28.97 KB
Edit
Delete
Copy
Move
Remame