Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
lib64
/
perl5
/
vendor_perl
/
common
Upload
4 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
sense.pm
492 B
-rw-r--r--
2021-04-12 06:46:21
Edit
Del
sense.pod
15.6 KB
-rw-r--r--
2021-04-12 06:46:21
Edit
Del
Editing: sense.pm
(492 B)
Path: /usr/lib64/perl5/vendor_perl/common/sense.pm
Back
package common::sense; our $VERSION = 3.74; # overload should be included sub import { local $^W; # work around perl 5.16 spewing out warnings for next statement # use warnings ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\x0c\x3f\x33\x00\x0f\xf0\x0f\xc0\xf0\xfc\x33\x00\x00\x00\x0c\x00\x00"; # use strict, use utf8; use feature; $^H |= 0x1c820fc0; @^H{qw(feature_evalbytes feature_unicode feature___SUB__ feature_state feature_say feature_fc feature_switch)} = (1) x 7; } 1