#$@%#$%!

Ngiler SH3LL 360
: / usr / share / perl5 / vendor_perl / ExtUtils / MM /

Information Server
MySQL : OFF Perl : OFF CURL : ON WGET : OFF PKEXEC : OFF

Directive	Local Value
IP Address	162.0.209.101
System	Linux premium169.web-hosting.com 4.18.0-553.50.1.lve.el8.x86_64 #1 SMP Thu Apr 17 19:10:24 UTC 2025 x86_64
User	luxeelil
PHP Version	8.0.30
Software	LiteSpeed
Doc root	Writable

Edit File : Utils.pm \| Size : 1.52 KB
package ExtUtils::MM::Utils; require 5.006; use strict; use vars qw($VERSION); $VERSION = '7.11_06'; $VERSION = eval $VERSION; ## no critic [BuiltinFunctions::ProhibitStringyEval] =head1 NAME ExtUtils::MM::Utils - ExtUtils::MM methods without dependency on ExtUtils::MakeMaker =head1 SYNOPSIS require ExtUtils::MM::Utils; MM->maybe_command($file); =head1 DESCRIPTION This is a collection of L<ExtUtils::MM> subroutines that are used by many other modules but that do not need full-featured L<ExtUtils::MakeMaker>. The issue with L<ExtUtils::MakeMaker> is it pulls in Perl header files and that is an overkill for small subroutines. An example is the L<IPC::Cmd> that caused installing GCC just because of three-line I<maybe_command()> from L<ExtUtils::MM_Unix>. The intentions is to use L<ExtUtils::MM::Utils> instead of L<ExtUtils::MakeMaker> for these trivial methods. You can still call them via L<MM> class name. =head1 METHODS =over 4 =item maybe_command Returns true, if the argument is likely to be a command. =cut if (!exists $INC{'ExtUtils/MM.pm'}) { MM::maybe_command = ExtUtils::MM::maybe_command = \&maybe_command; } sub maybe_command { my($self,$file) = @_; return $file if -x $file && ! -d $file; return; } 1; =back =head1 BUGS These methods are copied from L<ExtUtils::MM_Unix>. Other operating systems are not supported yet. The reason is this L<a hack for Linux distributions\|https://bugzilla.redhat.com/show_bug.cgi?id=1129443>. =head1 SEE ALSO L<ExtUtils::MakeMaker>, L<ExtUtils::MM> =cut Back

Edit File : Utils.pm | Size : 1.52 KB

package ExtUtils::MM::Utils;

require 5.006;

use strict;
use vars qw($VERSION);
$VERSION = '7.11_06';
$VERSION = eval $VERSION;  ## no critic [BuiltinFunctions::ProhibitStringyEval]

=head1 NAME

ExtUtils::MM::Utils - ExtUtils::MM methods without dependency on ExtUtils::MakeMaker

=head1 SYNOPSIS

require ExtUtils::MM::Utils;
    MM->maybe_command($file);

=head1 DESCRIPTION

This is a collection of L<ExtUtils::MM> subroutines that are used by many
other modules but that do not need full-featured L<ExtUtils::MakeMaker>. The
issue with L<ExtUtils::MakeMaker> is it pulls in Perl header files and that is
an overkill for small subroutines.

An example is the L<IPC::Cmd> that caused installing GCC just because of
three-line I<maybe_command()> from L<ExtUtils::MM_Unix>.

The intentions is to use L<ExtUtils::MM::Utils> instead of
L<ExtUtils::MakeMaker> for these trivial methods. You can still call them via
L<MM> class name.

=head1 METHODS

=over 4

=item maybe_command

Returns true, if the argument is likely to be a command.

=cut

if (!exists $INC{'ExtUtils/MM.pm'}) {
    *MM::maybe_command = *ExtUtils::MM::maybe_command = \&maybe_command;
}

sub maybe_command {
    my($self,$file) = @_;
    return $file if -x $file && ! -d $file;
    return;
}

=back

=head1 BUGS

These methods are copied from L<ExtUtils::MM_Unix>. Other operating systems
are not supported yet. The reason is this
L<a hack for Linux
distributions|https://bugzilla.redhat.com/show_bug.cgi?id=1129443>.

=head1 SEE ALSO

L<ExtUtils::MakeMaker>, L<ExtUtils::MM>

=cut

Back