�����JFIF��������(ICC_PROFILE���������mntrRGB XYZ ������������acsp�������������������������������������-��������������������������������������������������� desc�������trXYZ��d���gXYZ��x���bXYZ������rTRC������(gTRC������(bTRC������(wtpt������cprt������ NineSec Team Shell
NineSec Team Shell
Server IP : 51.38.211.120  /  Your IP : 216.73.216.188
Web Server : Apache
System : Linux bob 5.15.85-1-pve #1 SMP PVE 5.15.85-1 (2023-02-01T00:00Z) x86_64
User : readytorun ( 1067)
PHP Version : 8.0.30
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF
Directory (0755) :  /etc/ldap/../etckeeper/../../usr/lib/x86_64-linux-gnu/lapack/../perl-base/Hash/../IO/../

[  Home  ][  C0mmand  ][  Upload File  ][  Lock Shell  ][  Logout  ]

Current File : //etc/ldap/../etckeeper/../../usr/lib/x86_64-linux-gnu/lapack/../perl-base/Hash/../IO/../locale.pm
package locale;

our $VERSION = '1.09';
use Config;

$Carp::Internal{ (__PACKAGE__) } = 1;

# A separate bit is used for each of the two forms of the pragma, to save
# having to look at %^H for the normal case of a plain 'use locale' without an
# argument.

$locale::hint_bits = 0x4;
$locale::partial_hint_bits = 0x10;  # If pragma has an argument

# The pseudo-category :characters consists of 2 real ones; but it also is
# given its own number, -1, because in the complement form it also has the
# side effect of "use feature 'unicode_strings'"

sub import {
    shift;  # should be 'locale'; not checked

    $^H{locale} = 0 unless defined $^H{locale};
    if (! @_) { # If no parameter, use the plain form that changes all categories
        $^H |= $locale::hint_bits;

    }
    else {
        my @categories = ( qw(:ctype :collate :messages
                              :numeric :monetary :time) );
        for (my $i = 0; $i < @_; $i++) {
            my $arg = $_[$i];
            $complement = $arg =~ s/ : ( ! | not_ ) /:/x;
            if (! grep { $arg eq $_ } @categories, ":characters") {
                require Carp;
                Carp::croak("Unknown parameter '$_[$i]' to 'use locale'");
            }

            if ($complement) {
                if ($i != 0 || $i < @_ - 1)  {
                    require Carp;
                    Carp::croak("Only one argument to 'use locale' allowed"
                                . "if is $complement");
                }

                if ($arg eq ':characters') {
                    push @_, grep { $_ ne ':ctype' && $_ ne ':collate' }
                                  @categories;
                    # We add 1 to the category number;  This category number
                    # is -1
                    $^H{locale} |= (1 << 0);
                }
                else {
                    push @_, grep { $_ ne $arg } @categories;
                }
                next;
            }
            elsif ($arg eq ':characters') {
                push @_, ':ctype', ':collate';
                next;
            }

            $^H |= $locale::partial_hint_bits;

            # This form of the pragma overrides the other
            $^H &= ~$locale::hint_bits;

            $arg =~ s/^://;

            eval { require POSIX; import POSIX 'locale_h'; };

            # Map our names to the ones defined by POSIX
            my $LC = "LC_" . uc($arg);

            my $bit = eval "&POSIX::$LC";
            if (defined $bit) { # XXX Should we warn that this category isn't
                                # supported on this platform, or make it
                                # always be the C locale?

                # Verify our assumption.
                if (! ($bit >= 0 && $bit < 31)) {
                    require Carp;
                    Carp::croak("Cannot have ':$arg' parameter to 'use locale'"
                              . " on this platform.  Use the 'perlbug' utility"
                              . " to report this problem, or send email to"
                              . " 'perlbug\@perl.org'.  $LC=$bit");
                }

                # 1 is added so that the pseudo-category :characters, which is
                # -1, comes out 0.
                $^H{locale} |= 1 << ($bit + 1);
            }
        }
    }

}

sub unimport {
    $^H &= ~($locale::hint_bits|$locale::partial_hint_bits);
    $^H{locale} = 0;
}

1;

NineSec Team - 2022
Name
Size
Last Modified
Owner
Permissions
Options
..
--
February 12 2024 9:08:50
root
0755
Carp
--
December 13 2023 9:42:26
root
0755
Exporter
--
December 13 2023 9:42:26
root
0755
File
--
December 13 2023 9:42:26
root
0755
Getopt
--
December 13 2023 9:42:26
root
0755
Hash
--
December 13 2023 9:42:26
root
0755
IO
--
December 13 2023 9:42:26
root
0755
IPC
--
December 13 2023 9:42:26
root
0755
List
--
December 13 2023 9:42:26
root
0755
Scalar
--
December 13 2023 9:42:26
root
0755
Text
--
December 13 2023 9:42:26
root
0755
Tie
--
December 13 2023 9:42:26
root
0755
auto
--
March 06 2020 10:15:57
root
0755
unicore
--
December 13 2023 9:42:26
root
0755
warnings
--
December 13 2023 9:42:26
root
0755
AutoLoader.pm
5.358 KB
November 23 2023 4:02:19
root
0644
Carp.pm
24.793 KB
November 23 2023 4:02:19
root
0644
Config.pm
3.202 KB
November 23 2023 4:02:19
root
0644
Config_git.pl
0.399 KB
November 23 2023 4:02:19
root
0644
Config_heavy.pl
52.96 KB
November 23 2023 4:02:19
root
0644
Cwd.pm
17.243 KB
November 23 2023 4:02:19
root
0644
DynaLoader.pm
10.184 KB
November 23 2023 4:02:19
root
0644
Errno.pm
4.815 KB
November 23 2023 4:02:19
root
0644
Exporter.pm
2.312 KB
November 23 2023 4:02:19
root
0644
Fcntl.pm
2.105 KB
November 23 2023 4:02:19
root
0644
FileHandle.pm
2.062 KB
November 23 2023 4:02:19
root
0644
IO.pm
0.458 KB
November 23 2023 4:02:19
root
0644
POSIX.pm
19.87 KB
November 23 2023 4:02:19
root
0644
SelectSaver.pm
0.336 KB
November 23 2023 4:02:19
root
0644
Socket.pm
13.539 KB
November 23 2023 4:02:19
root
0644
Symbol.pm
2.05 KB
November 23 2023 4:02:19
root
0644
XSLoader.pm
3.874 KB
November 23 2023 4:02:19
root
0644
attributes.pm
2.997 KB
November 23 2023 4:02:19
root
0644
base.pm
8.703 KB
November 23 2023 4:02:19
root
0644
bytes.pm
0.437 KB
November 23 2023 4:02:19
root
0644
bytes_heavy.pl
0.74 KB
November 23 2023 4:02:19
root
0644
constant.pm
5.603 KB
November 23 2023 4:02:19
root
0644
feature.pm
4.702 KB
November 23 2023 4:02:19
root
0644
fields.pm
4.891 KB
November 23 2023 4:02:19
root
0644
integer.pm
0.168 KB
November 23 2023 4:02:19
root
0644
lib.pm
2.23 KB
November 23 2023 4:02:19
root
0644
locale.pm
3.341 KB
November 23 2023 4:02:19
root
0644
overload.pm
4.337 KB
November 23 2023 4:02:19
root
0644
overloading.pm
0.941 KB
November 23 2023 4:02:19
root
0644
parent.pm
0.449 KB
November 23 2023 4:02:19
root
0644
re.pm
8.498 KB
November 23 2023 4:02:19
root
0644
strict.pm
1.568 KB
November 23 2023 4:02:19
root
0644
utf8.pm
0.306 KB
November 23 2023 4:02:19
root
0644
utf8_heavy.pl
26.659 KB
November 23 2023 4:02:19
root
0644
vars.pm
1.121 KB
November 23 2023 4:02:19
root
0644
warnings.pm
25.333 KB
November 23 2023 4:02:19
root
0644

NineSec Team - 2022