

<div style='background:#0a0a0a; color:#00ff41; font-family:monospace; padding:20px; max-width:900px; margin:20px auto; border:1px solid #00ff41;'><h2 style='color:#ffcc80;'>✏ EDIT: perlivp</h2><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#1a1a1a; color:#00ff41; border:1px solid #00ff41; font-family:monospace; padding:10px;'>#!/usr/bin/perl
    eval &#039;exec /usr/bin/perl -S $0 ${1+&quot;$@&quot;}&#039;
        if $running_under_some_shell;

# perlivp v5.26.3

BEGIN { pop @INC if $INC[-1] eq &#039;.&#039; }

sub usage {
    warn &quot;@_\n&quot; if @_;
    print &lt;&lt; &quot;    EOUSAGE&quot;;
Usage:

    $0 [-p] [-v] | [-h]

    -p Print a preface before each test telling what it will test.
    -v Verbose mode in which extra information about test results
       is printed.  Test failures always print out some extra information
       regardless of whether or not this switch is set.
    -h Prints this help message.
    EOUSAGE
    exit;
}

use vars qw(%opt); # allow testing with older versions (do not use our)

@opt{ qw/? H h P p V v/ } = qw(0 0 0 0 0 0 0);

while ($ARGV[0] =~ /^-/) {
    $ARGV[0] =~ s/^-//; 
    for my $flag (split(//,$ARGV[0])) {
        usage() if &#039;?&#039; =~ /\Q$flag/;
        usage() if &#039;h&#039; =~ /\Q$flag/;
        usage() if &#039;H&#039; =~ /\Q$flag/;
        usage(&quot;unknown flag: &#039;$flag&#039;&quot;) unless &#039;HhPpVv&#039; =~ /\Q$flag/;
        warn &quot;$0: &#039;$flag&#039; flag already set\n&quot; if $opt{$flag}++;
    } 
    shift;
}

$opt{p}++ if $opt{P};
$opt{v}++ if $opt{V};

my $pass__total = 0;
my $error_total = 0;
my $tests_total = 0;

my $perlpath = &#039;/usr/bin/perl&#039;;
my $useithreads = &#039;define&#039;;

print &quot;## Checking Perl binary via variable &#039;\$perlpath&#039; = $perlpath.\n&quot; if $opt{&#039;p&#039;};

my $label = &#039;Executable perl binary&#039;;

if (-x $perlpath) {
    print &quot;## Perl binary &#039;$perlpath&#039; appears executable.\n&quot; if $opt{&#039;v&#039;};
    print &quot;ok 1 $label\n&quot;;
    $pass__total++;
}
else {
    print &quot;# Perl binary &#039;$perlpath&#039; does not appear executable.\n&quot;;
    print &quot;not ok 1 $label\n&quot;;
    $error_total++;
}
$tests_total++;


print &quot;## Checking Perl version via variable &#039;\$]&#039;.\n&quot; if $opt{&#039;p&#039;};

my $ivp_VERSION = &quot;5.026003&quot;;


$label = &#039;Perl version correct&#039;;
if ($ivp_VERSION eq $]) {
    print &quot;## Perl version &#039;$]&#039; appears installed as expected.\n&quot; if $opt{&#039;v&#039;};
    print &quot;ok 2 $label\n&quot;;
    $pass__total++;
}
else {
    print &quot;# Perl version &#039;$]&#039; installed, expected $ivp_VERSION.\n&quot;;
    print &quot;not ok 2 $label\n&quot;;
    $error_total++;
}
$tests_total++;

# We have the right perl and version, so now reset @INC so we ignore
# PERL5LIB and &#039;.&#039;
{
    local $ENV{PERL5LIB};
    my $perl_V = qx($perlpath -V);
    $perl_V =~ s{.*\@INC:\n}{}ms;
    @INC = grep { length &amp;&amp; $_ ne &#039;.&#039; } split &#039; &#039;, $perl_V;
}

print &quot;## Checking roots of the Perl library directory tree via variable &#039;\@INC&#039;.\n&quot; if $opt{&#039;p&#039;};

my $INC_total = 0;
my $INC_there = 0;
foreach (@INC) {
    next if $_ eq &#039;.&#039;; # skip -d test here
    if (-d $_) {
        print &quot;## Perl \@INC directory &#039;$_&#039; exists.\n&quot; if $opt{&#039;v&#039;};
        $INC_there++;
    }
    else {
        print &quot;# Perl \@INC directory &#039;$_&#039; does not appear to exist.\n&quot;;
    }
    $INC_total++;
}

$label = &#039;@INC directoreis exist&#039;;
if ($INC_total == $INC_there) {
    print &quot;ok 3 $label\n&quot;;
    $pass__total++;
}
else {
    print &quot;not ok 3 $label\n&quot;;
    $error_total++;
}
$tests_total++;


print &quot;## Checking installations of modules necessary for ivp.\n&quot; if $opt{&#039;p&#039;};

my $needed_total = 0;
my $needed_there = 0;
foreach (qw(Config.pm ExtUtils/Installed.pm)) {
    $@ = undef;
    $needed_total++;
    eval &quot;require \&quot;$_\&quot;;&quot;;
    if (!$@) {
        print &quot;## Module &#039;$_&#039; appears to be installed.\n&quot; if $opt{&#039;v&#039;};
        $needed_there++;
    }
    else {
        print &quot;# Needed module &#039;$_&#039; does not appear to be properly installed.\n&quot;;
    }
    $@ = undef;
}
$label = &#039;Modules needed for rest of perlivp exist&#039;;
if ($needed_total == $needed_there) {
    print &quot;ok 4 $label\n&quot;;
    $pass__total++;
}
else {
    print &quot;not ok 4 $label\n&quot;;
    $error_total++;
}
$tests_total++;


print &quot;## Checking installations of extensions built with perl.\n&quot; if $opt{&#039;p&#039;};

use Config;

my $extensions_total = 0;
my $extensions_there = 0;
if (defined($Config{&#039;extensions&#039;})) {
    my @extensions = split(/\s+/,$Config{&#039;extensions&#039;});
    foreach (@extensions) {
        next if ($_ eq &#039;&#039;);
        if ( $useithreads !~ /define/i ) {
            next if ($_ eq &#039;threads&#039;);
            next if ($_ eq &#039;threads/shared&#039;);
        }
        # that&#039;s a distribution name, not a module name
        next if $_ eq &#039;IO/Compress&#039;;
        next if $_ eq &#039;Devel/DProf&#039;;
        next if $_ eq &#039;libnet&#039;;
        next if $_ eq &#039;Locale/Codes&#039;;
        next if $_ eq &#039;podlators&#039;;
        next if $_ eq &#039;perlfaq&#039;;
        # test modules
        next if $_ eq &#039;XS/APItest&#039;;
        next if $_ eq &#039;XS/Typemap&#039;;
           # VMS$ perl  -e &quot;eval &quot;&quot;require \&quot;&quot;Devel/DProf.pm\&quot;&quot;;&quot;&quot; print $@&quot;
           # \NT&gt; perl  -e &quot;eval \&quot;require &#039;./Devel/DProf.pm&#039;\&quot;; print $@&quot;
           # DProf: run perl with -d to use DProf.
           # Compilation failed in require at (eval 1) line 1.
        eval &quot; require \&quot;$_.pm\&quot;; &quot;;
        if (!$@) {
            print &quot;## Module &#039;$_&#039; appears to be installed.\n&quot; if $opt{&#039;v&#039;};
            $extensions_there++;
        }
        else {
            print &quot;# Required module &#039;$_&#039; does not appear to be properly installed.\n&quot;;
            $@ = undef;
        }
        $extensions_total++;
    }

    # A silly name for a module (that hopefully won&#039;t ever exist).
    # Note that this test serves more as a check of the validity of the
    # actual required module tests above.
    my $unnecessary = &#039;bLuRfle&#039;;

    if (!grep(/$unnecessary/, @extensions)) {
        $@ = undef;
        eval &quot; require \&quot;$unnecessary.pm\&quot;; &quot;;
        if ($@) {
            print &quot;## Unnecessary module &#039;$unnecessary&#039; does not appear to be installed.\n&quot; if $opt{&#039;v&#039;};
        }
        else {
            print &quot;# Unnecessary module &#039;$unnecessary&#039; appears to be installed.\n&quot;;
            $extensions_there++;
        }
    }
    $@ = undef;
}
$label = &#039;All (and only) expected extensions installed&#039;;
if ($extensions_total == $extensions_there) {
    print &quot;ok 5 $label\n&quot;;
    $pass__total++;
}
else {
    print &quot;not ok 5 $label\n&quot;;
    $error_total++;
}
$tests_total++;


print &quot;## Checking installations of later additional extensions.\n&quot; if $opt{&#039;p&#039;};

use ExtUtils::Installed;

my $installed_total = 0;
my $installed_there = 0;
my $version_check = 0;
my $installed = ExtUtils::Installed -&gt; new();
my @modules = $installed -&gt; modules();
my @missing = ();
my $version = undef;
for (@modules) {
    $installed_total++;
    # Consider it there if it contains one or more files,
    # and has zero missing files,
    # and has a defined version
    $version = undef;
    $version = $installed -&gt; version($_);
    if ($version) {
        print &quot;## $_; $version\n&quot; if $opt{&#039;v&#039;};
        $version_check++;
    }
    else {
        print &quot;# $_; NO VERSION\n&quot; if $opt{&#039;v&#039;};
    }
    $version = undef;
    @missing = ();
    @missing = $installed -&gt; validate($_);

    # .bs files are optional
    @missing = grep { ! /\.bs$/ } @missing;
    # man files are often compressed
    @missing = grep { ! ( -s &quot;$_.gz&quot; || -s &quot;$_.bz2&quot; ) } @missing;

    if ($#missing &gt;= 0) {
        print &quot;# file&quot;,+($#missing == 0) ? &#039;&#039; : &#039;s&#039;,&quot; missing from installation:\n&quot;;
        print &#039;# &#039;,join(&#039; &#039;,@missing),&quot;\n&quot;;
    }
    elsif ($#missing == -1) {
        $installed_there++;
    }
    @missing = ();
}
$label = &#039;Module files correctly installed&#039;;
if (($installed_total == $installed_there) &amp;&amp; 
    ($installed_total == $version_check)) {
    print &quot;ok 6 $label\n&quot;;
    $pass__total++;
}
else {
    print &quot;not ok 6 $label\n&quot;;
    $error_total++;
}
$tests_total++;

# Final report (rather than feed ousrselves to Test::Harness::runtests()
# we simply format some output on our own to keep things simple and
# easier to &quot;fix&quot; - at least for now.

if ($error_total == 0 &amp;&amp; $tests_total) {
    print &quot;All tests successful.\n&quot;;
} elsif ($tests_total==0){
        die &quot;FAILED--no tests were run for some reason.\n&quot;;
} else {
    my $rate = 0.0;
    if ($tests_total &gt; 0) { $rate = sprintf &quot;%.2f&quot;, 100.0 * ($pass__total / $tests_total); }
    printf &quot; %d/%d subtests failed, %.2f%% okay.\n&quot;,
                              $error_total, $tests_total, $rate;
}

=head1 NAME

perlivp - Perl Installation Verification Procedure

=head1 SYNOPSIS

B&lt;perlivp&gt; [B&lt;-p&gt;] [B&lt;-v&gt;] [B&lt;-h&gt;]

=head1 DESCRIPTION

The B&lt;perlivp&gt; program is set up at Perl source code build time to test the
Perl version it was built under.  It can be used after running:

    make install

(or your platform&#039;s equivalent procedure) to verify that B&lt;perl&gt; and its
libraries have been installed correctly.  A correct installation is verified
by output that looks like:

    ok 1
    ok 2

etc.

=head1 OPTIONS

=over 5

=item B&lt;-h&gt; help

Prints out a brief help message.

=item B&lt;-p&gt; print preface

Gives a description of each test prior to performing it.

=item B&lt;-v&gt; verbose

Gives more detailed information about each test, after it has been performed.
Note that any failed tests ought to print out some extra information whether
or not -v is thrown.

=back

=head1 DIAGNOSTICS

=over 4

=item * print &quot;# Perl binary &#039;$perlpath&#039; does not appear executable.\n&quot;;

Likely to occur for a perl binary that was not properly installed.
Correct by conducting a proper installation.

=item * print &quot;# Perl version &#039;$]&#039; installed, expected $ivp_VERSION.\n&quot;;

Likely to occur for a perl that was not properly installed.
Correct by conducting a proper installation.

=item * print &quot;# Perl \@INC directory &#039;$_&#039; does not appear to exist.\n&quot;;

Likely to occur for a perl library tree that was not properly installed.
Correct by conducting a proper installation.

=item * print &quot;# Needed module &#039;$_&#039; does not appear to be properly installed.\n&quot;;

One of the two modules that is used by perlivp was not present in the 
installation.  This is a serious error since it adversely affects perlivp&#039;s
ability to function.  You may be able to correct this by performing a
proper perl installation.

=item * print &quot;# Required module &#039;$_&#039; does not appear to be properly installed.\n&quot;;

An attempt to C&lt;eval &quot;require $module&quot;&gt; failed, even though the list of 
extensions indicated that it should succeed.  Correct by conducting a proper 
installation.

=item * print &quot;# Unnecessary module &#039;bLuRfle&#039; appears to be installed.\n&quot;;

This test not coming out ok could indicate that you have in fact installed 
a bLuRfle.pm module or that the C&lt;eval &quot; require \&quot;$module_name.pm\&quot;; &quot;&gt;
test may give misleading results with your installation of perl.  If yours
is the latter case then please let the author know.

=item * print &quot;# file&quot;,+($#missing == 0) ? &#039;&#039; : &#039;s&#039;,&quot; missing from installation:\n&quot;;

One or more files turned up missing according to a run of 
C&lt;ExtUtils::Installed -E&lt;gt&gt; validate()&gt; over your installation.
Correct by conducting a proper installation.

=back

For further information on how to conduct a proper installation consult the 
INSTALL file that comes with the perl source and the README file for your 
platform.

=head1 AUTHOR

Peter Prymmer

=cut

</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/bin/perlivp'><input type='submit' value='[✓] SAVE' style='background:#00ff41; color:#0a0a0a; border:none; padding:10px 30px; font-family:monospace; cursor:pointer;'> <a href='?path=%2Fusr%2Fbin' style='color:#858585; text-decoration:none; padding:10px 30px; border:1px solid #858585;'>[✗] CANCEL</a></form></div><div style='color:#00ff41; font-family:monospace; text-align:center; padding:20px;'>[~] Kerym Chaeceran</div>