Graybyt3 Was Here

Linux cloud.locucionar.com 3.10.0-1160.81.1.el7.x86_64 #1 SMP Fri Dec 16 17:29:43 UTC 2022 x86_64
Apache
91.191.211.241

File Name : 00-compile.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use File::Find;
use File::Temp qw{ tempdir };

my @modules;
find(
  sub {
    return if $File::Find::name !~ /\.pm\z/;
    my $found = $File::Find::name;
    $found =~ s{^lib/}{};
    $found =~ s{[/\\]}{::}g;
    $found =~ s/\.pm$//;
    # nothing to skip
    push @modules, $found;
  },
  'lib',
);

sub _find_scripts {
    my $dir = shift @_;

my @found_scripts = ();
    find(
      sub {
        return unless -f;
        my $found = $File::Find::name;
        # nothing to skip
        open my $FH, '<', $_ or do {
          note( "Unable to open $found in ( $! ), skipping" );
          return;
        };
        my $shebang = <$FH>;
        return unless $shebang =~ /^#!.*?\bperl\b\s*$/;
        push @found_scripts, $found;
      },
      $dir,
    );

return @found_scripts;
}

my @scripts;
do { push @scripts, _find_scripts($_) if -d $_ }
    for qw{ bin script scripts };

my $plan = scalar(@modules) + scalar(@scripts);
$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run");

{
    # fake home for cpan-testers
     local $ENV{HOME} = tempdir( CLEANUP => 1 );

like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" )
        for sort @modules;

SKIP: {
        eval "use Test::Script 1.05; 1;";
        skip "Test::Script needed to test script compilation", scalar(@scripts) if $@;
        foreach my $file ( @scripts ) {
            my $script = $file;
            $script =~ s!.*/!!;
            script_compiles( $file, "$script script compiles" );
        }
    }
}

System Information
*ReClick For Close
File : BlackDragon /TEMAS NUEVOS ANUNCIADOS OFF - SEMANA DEL 09 AL 13 DE OCTUBRE DE 2023/waxjo0/about.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2023-01-23 04:19:49
..	dir	-	root/root	0755	2023-01-23 04:19:48
data	dir	-	root/root	0755	2023-01-23 04:19:49
data-bad	dir	-	root/root	0755	2023-01-23 04:19:49
data-fail	dir	-	root/root	0755	2023-01-23 04:19:49
00-compile.t	text/x-perl	1.57 KB	root/root	0644	2014-06-10 09:19:37
converter-bad.t	text/plain	2.63 KB	root/root	0644	2014-06-10 09:19:37
converter-fail.t	text/plain	1.09 KB	root/root	0644	2014-06-10 09:19:37
converter.t	text/plain	8.02 KB	root/root	0644	2014-06-10 09:19:37
load-bad.t	text/plain	789 B	root/root	0644	2014-06-10 09:19:37
meta-obj.t	text/plain	5.7 KB	root/root	0644	2014-06-10 09:19:37
no-index.t	text/plain	1.72 KB	root/root	0644	2014-06-10 09:19:37
prereqs-finalize.t	text/plain	2.17 KB	root/root	0644	2014-06-10 09:19:37
prereqs-merge.t	text/plain	1.94 KB	root/root	0644	2014-06-10 09:19:37
prereqs.t	text/plain	2.55 KB	root/root	0644	2014-06-10 09:19:37
repository.t	text/plain	4.3 KB	root/root	0644	2014-06-10 09:19:37
save-load.t	text/plain	2.85 KB	root/root	0644	2014-06-10 09:19:37
strings.t	text/plain	2.26 KB	root/root	0644	2014-06-10 09:19:37
validator.t	text/plain	940 B	root/root	0644	2014-06-10 09:19:37