/ 
perl-5.36.0
River stage five • 12010 direct dependents • 33600 total dependents
⭐ Starred 2013 GitHub stars
/ Module::Loaded
Security Advisories (5)
CVE-2023-47038 (2023-10-30)

A crafted regular expression when compiled by perl 5.30.0 through 5.38.0 can cause a one attacker controlled byte buffer overflow in a heap allocated buffer

CVE-2023-47039 (2023-10-30)

Perl for Windows relies on the system path environment variable to find the shell (cmd.exe). When running an executable which uses Windows Perl interpreter, Perl attempts to find and execute cmd.exe within the operating system. However, due to path search order issues, Perl initially looks for cmd.exe in the current working directory. An attacker with limited privileges can exploit this behavior by placing cmd.exe in locations with weak permissions, such as C:\ProgramData. By doing so, when an administrator attempts to use this executable from these compromised locations, arbitrary code can be executed.

CVE-2023-47100

In Perl before 5.38.2, S_parse_uniprop_string in regcomp.c can write to unallocated space because a property name associated with a \p{...} regular expression construct is mishandled. The earliest affected version is 5.30.0.

CVE-2024-56406 (2025-04-13)

A heap buffer overflow vulnerability was discovered in Perl. When there are non-ASCII bytes in the left-hand-side of the `tr` operator, `S_do_trans_invmap` can overflow the destination pointer `d`.    $ perl -e '$_ = "\x{FF}" x 1000000; tr/\xFF/\x{100}/;'    Segmentation fault (core dumped) It is believed that this vulnerability can enable Denial of Service and possibly Code Execution attacks on platforms that lack sufficient defenses.

CVE-2025-40909 (2025-05-30)

Perl threads have a working directory race condition where file operations may target unintended paths. If a directory handle is open at thread creation, the process-wide current working directory is temporarily changed in order to clone that handle for the new thread, which is visible from any third (or more) thread already running. This may lead to unintended operations such as loading code or accessing files from unexpected locations, which a local attacker may be able to exploit. The bug was introduced in commit 11a11ecf4bea72b17d250cfb43c897be1341861e and released in Perl version 5.13.6

NAME

Module::Loaded - mark modules as loaded or unloaded

SYNOPSIS

use Module::Loaded;

$bool = mark_as_loaded('Foo');   # Foo.pm is now marked as loaded
$loc  = is_loaded('Foo');        # location of Foo.pm set to the
                                 # loaders location
eval "require 'Foo'";            # is now a no-op

$bool = mark_as_unloaded('Foo'); # Foo.pm no longer marked as loaded
eval "require 'Foo'";            # Will try to find Foo.pm in @INC

DESCRIPTION

When testing applications, often you find yourself needing to provide functionality in your test environment that would usually be provided by external modules. Rather than munging the %INC by hand to mark these external modules as loaded, so they are not attempted to be loaded by perl, this module offers you a very simple way to mark modules as loaded and/or unloaded.

FUNCTIONS

$bool = mark_as_loaded( PACKAGE );

Marks the package as loaded to perl. PACKAGE can be a bareword or string.

If the module is already loaded, mark_as_loaded will carp about this and tell you from where the PACKAGE has been loaded already.

$bool = mark_as_unloaded( PACKAGE );

Marks the package as unloaded to perl, which is the exact opposite of mark_as_loaded. PACKAGE can be a bareword or string.

If the module is already unloaded, mark_as_unloaded will carp about this and tell you the PACKAGE has been unloaded already.

$loc = is_loaded( PACKAGE );

is_loaded tells you if PACKAGE has been marked as loaded yet. PACKAGE can be a bareword or string.

It returns falls if PACKAGE has not been loaded yet and the location from where it is said to be loaded on success.

BUG REPORTS

Please report bugs or other issues to <bug-module-loaded@rt.cpan.org<gt>.

AUTHOR

This module by Jos Boumans <kane@cpan.org>.

COPYRIGHT

This library is free software; you may redistribute and/or modify it under the same terms as Perl itself.