Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
SOAPsh.bat	3.35 KB	-rwxrwxrwx	2021-01-24 18:08
SOAPsh.pl	2.75 KB	-rw-rw-rw-	2021-01-24 18:01
bdf2gdfont.bat	5.26 KB	-rwxrwxrwx	2021-01-24 18:08
bdf2gdfont.pl	4.75 KB	-rw-rw-rw-	2021-01-24 17:46
chartex	5.67 KB	-rw-rw-rw-	2021-01-24 18:01
chartex.bat	6.47 KB	-rwxrwxrwx	2021-01-24 18:08
config_data	7.2 KB	-rw-rw-rw-	2021-01-24 18:01
config_data.bat	7.73 KB	-rwxrwxrwx	2024-07-26 17:42
corelist.bat	15.75 KB	-rwxrwxrwx	2023-11-19 11:41
cpan	8.06 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-mirrors	4.18 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-mirrors.bat	5.1 KB	-rwxrwxrwx	2021-01-24 18:08
cpan-outdated	8.85 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-outdated.bat	9.67 KB	-rwxrwxrwx	2021-01-24 18:08
cpan.bat	9.16 KB	-rwxrwxrwx	2021-01-24 18:08
cpan2dist	21.22 KB	-rw-rw-rw-	2021-01-24 18:01
cpan2dist.bat	22.39 KB	-rwxrwxrwx	2021-01-24 18:08
cpandb	6.6 KB	-rw-rw-rw-	2021-01-24 18:01
cpandb.bat	7.37 KB	-rwxrwxrwx	2021-01-24 18:08
cpanel_json_xs	9.75 KB	-rw-rw-rw-	2021-01-24 18:01
cpanel_json_xs.bat	10.58 KB	-rwxrwxrwx	2021-01-24 18:08
cpanfile-dump	3.45 KB	-rw-rw-rw-	2021-01-24 16:20
cpanfile-dump.bat	4.08 KB	-rwxrwxrwx	2021-01-24 18:08
cpanm	295.67 KB	-rw-rw-rw-	2021-01-24 16:36
cpanm.bat	297.23 KB	-rwxrwxrwx	2021-01-24 18:08
cpanp	3.22 KB	-rw-rw-rw-	2021-01-24 18:01
cpanp-run-perl	459 B	-rw-rw-rw-	2021-01-24 16:38
cpanp-run-perl.bat	990 B	-rwxrwxrwx	2021-01-24 18:08
cpanp.bat	3.84 KB	-rwxrwxrwx	2021-01-24 18:08
crc32	1.01 KB	-rw-rw-rw-	2021-01-24 18:01
crc32.bat	1.57 KB	-rwxrwxrwx	2021-01-24 18:08
dbicadmin	7 KB	-rw-rw-rw-	2021-01-24 18:01
dbicadmin.bat	7.87 KB	-rwxrwxrwx	2021-01-24 18:08
dbilogstrip	1.39 KB	-rw-rw-rw-	2021-01-24 17:15
dbilogstrip.bat	1.89 KB	-rwxrwxrwx	2021-01-24 18:08
dbiprof	6.31 KB	-rw-rw-rw-	2021-01-24 17:15
dbiprof.bat	6.82 KB	-rwxrwxrwx	2021-01-24 18:08
dbiproxy	5.44 KB	-rw-rw-rw-	2021-01-24 17:15
dbiproxy.bat	5.95 KB	-rwxrwxrwx	2021-01-24 18:08
enc2xs	40.68 KB	-rw-rw-rw-	2021-01-24 18:01
enc2xs.bat	42.87 KB	-rwxrwxrwx	2021-01-24 18:08
encguess	2.91 KB	-rw-rw-rw-	2021-01-24 18:01
encguess.bat	3.8 KB	-rwxrwxrwx	2021-01-24 18:08
exe_update.bat	4.71 KB	-rwxrwxrwx	2021-01-24 18:08
exe_update.pl	4.05 KB	-rw-rw-rw-	2021-01-24 18:01
exetype.bat	3.53 KB	-rwxrwxrwx	2021-01-24 18:08
extract_vba	2.98 KB	-rw-rw-rw-	2021-01-24 18:01
extract_vba.bat	3.62 KB	-rwxrwxrwx	2021-01-24 18:08
factor.bat	3.77 KB	-rwxrwxrwx	2021-01-24 18:08
factor.pl	3.16 KB	-rw-rw-rw-	2021-01-24 18:01
findrule	3.24 KB	-rw-rw-rw-	2021-01-24 16:52
findrule.bat	3.88 KB	-rwxrwxrwx	2021-01-24 18:08
h2ph.bat	30.27 KB	-rwxrwxrwx	2024-07-26 17:42
h2xs.bat	62.43 KB	-rwxrwxrwx	2024-07-26 17:42
htmltree	1.28 KB	-rw-rw-rw-	2021-01-24 18:01
htmltree.bat	1.81 KB	-rwxrwxrwx	2024-07-26 17:42
hypnotoad	1.03 KB	-rw-rw-rw-	2021-01-24 16:59
hypnotoad.bat	1.58 KB	-rwxrwxrwx	2021-01-24 18:08
instmodsh	4.09 KB	-rw-rw-rw-	2021-01-24 18:01
instmodsh.bat	5.03 KB	-rwxrwxrwx	2021-01-24 18:08
json_pp	4.77 KB	-rw-rw-rw-	2021-01-24 18:01
json_pp.bat	5.52 KB	-rwxrwxrwx	2024-07-26 17:42
json_xs	6.84 KB	-rw-rw-rw-	2021-01-24 18:01
json_xs.bat	7.6 KB	-rwxrwxrwx	2021-01-24 18:08
kwalitee-metrics	2.34 KB	-rw-rw-rw-	2021-01-24 18:01
kwalitee-metrics.bat	2.96 KB	-rwxrwxrwx	2021-01-24 18:08
libgcc_s_seh-1.dll	74.5 KB	-rw-rw-rw-	2019-03-14 23:36
libnetcfg.bat	16.88 KB	-rwxrwxrwx	2024-07-26 17:42
libstdc++-6.dll	1.36 MB	-rw-rw-rw-	2019-03-14 23:36
libwinpthread-1.dll	51 KB	-rw-rw-rw-	2019-03-14 23:36
llw32helper.bat	4.8 KB	-rwxrwxrwx	2021-01-24 18:08
llw32helper.pl	4.13 KB	-rw-rw-rw-	2021-01-24 17:51
lwp-download	10.04 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-download.bat	10.88 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-dump	2.64 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-dump.bat	3.26 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-mirror	2.35 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-mirror.bat	2.96 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-request	15.81 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-request.bat	16.88 KB	-rwxrwxrwx	2021-01-24 18:08
mech-dump	4.74 KB	-rw-rw-rw-	2021-01-24 18:01
mech-dump.bat	5.44 KB	-rwxrwxrwx	2021-01-24 18:08
minicpan	5.36 KB	-rw-rw-rw-	2021-01-24 18:08
minicpan.bat	6.05 KB	-rwxrwxrwx	2021-01-24 18:08
module-version	2.06 KB	-rw-rw-rw-	2021-01-24 17:51
module-version.bat	2.65 KB	-rwxrwxrwx	2021-01-24 18:08
mojo	408 B	-rw-rw-rw-	2021-01-24 16:59
mojo.bat	953 B	-rwxrwxrwx	2021-01-24 18:08
moose-outdated	427 B	-rw-rw-rw-	2021-01-24 18:01
moose-outdated.bat	977 B	-rwxrwxrwx	2021-01-24 18:08
morbo	2.15 KB	-rw-rw-rw-	2021-01-24 16:59
morbo.bat	2.72 KB	-rwxrwxrwx	2021-01-24 18:08
mymeta-cpanfile	2.7 KB	-rw-rw-rw-	2021-01-24 16:20
mymeta-cpanfile.bat	3.32 KB	-rwxrwxrwx	2021-01-24 18:08
nssm_32.exe	288 KB	-rwxrwxrwx	2021-01-24 16:50
nssm_64.exe	323.5 KB	-rwxrwxrwx	2021-01-24 16:50
package-stash-conflicts	463 B	-rw-rw-rw-	2021-01-24 18:01
package-stash-conflicts.bat	1013 B	-rwxrwxrwx	2021-01-24 18:08
parinstallppd	3.35 KB	-rw-rw-rw-	2021-01-24 18:01
parinstallppd.bat	3.99 KB	-rwxrwxrwx	2021-01-24 18:08
perl.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
perl5.32.1.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
perl532.dll	3.26 MB	-rw-rw-rw-	2021-01-24 16:07
perlbug.bat	46.8 KB	-rwxrwxrwx	2024-07-26 17:42
perldoc.bat	1016 B	-rwxrwxrwx	2023-11-19 11:41
perlglob.bat	1.95 KB	-rwxrwxrwx	2021-01-24 18:08
perlglob.exe	17 KB	-rwxrwxrwx	2021-01-24 16:01
perlivp.bat	11.72 KB	-rwxrwxrwx	2024-07-26 17:42
perlthanks.bat	46.8 KB	-rwxrwxrwx	2024-07-26 17:42
perltidy	175.27 KB	-rw-rw-rw-	2021-01-24 18:01
perltidy.bat	180.32 KB	-rwxrwxrwx	2021-01-24 18:08
pgplet	10.37 KB	-rw-rw-rw-	2021-01-24 18:01
pgplet.bat	11.22 KB	-rwxrwxrwx	2021-01-24 18:08
piconv	8.07 KB	-rw-rw-rw-	2021-01-24 18:01
piconv.bat	9.13 KB	-rwxrwxrwx	2021-01-24 18:08
pkg-config	46.94 KB	-rw-rw-rw-	2021-01-24 18:01
pkg-config.bat	49.2 KB	-rwxrwxrwx	2021-01-24 18:08
pl2bat.bat	11.49 KB	-rwxrwxrwx	2021-01-24 18:08
pl2bat.pl	10.4 KB	-rw-rw-rw-	2021-01-24 18:01
pl2pm.bat	5.56 KB	-rwxrwxrwx	2024-07-26 17:42
pler	540 B	-rw-rw-rw-	2021-01-24 18:01
pler.bat	1.07 KB	-rwxrwxrwx	2021-01-24 18:08
pm-uninstall	820 B	-rw-rw-rw-	2021-01-24 18:01
pm-uninstall.bat	1.28 KB	-rwxrwxrwx	2023-11-19 11:41
pod2html.bat	5.02 KB	-rwxrwxrwx	2024-07-26 17:42
pod2latex	10.39 KB	-rw-rw-rw-	2024-07-26 17:42
pod2latex.bat	10.92 KB	-rwxrwxrwx	2024-07-26 17:42
pod2man.bat	15.42 KB	-rwxrwxrwx	2023-11-19 11:41
pod2text.bat	11.29 KB	-rwxrwxrwx	2023-11-19 11:41
pod2usage	4.16 KB	-rw-rw-rw-	2021-01-24 16:27
pod2usage.bat	4.67 KB	-rwxrwxrwx	2021-01-24 18:08
pod_cover	1.37 KB	-rw-rw-rw-	2021-01-24 18:01
pod_cover.bat	1.94 KB	-rwxrwxrwx	2021-01-24 18:08
podchecker	3.7 KB	-rw-rw-rw-	2021-01-24 16:27
podchecker.bat	4.21 KB	-rwxrwxrwx	2021-01-24 18:08
podselect	2.56 KB	-rw-rw-rw-	2021-01-24 16:25
podselect.bat	3.07 KB	-rwxrwxrwx	2021-01-24 18:08
ppd2par	4.64 KB	-rw-rw-rw-	2021-01-24 18:01
ppd2par.bat	5.32 KB	-rwxrwxrwx	2021-01-24 18:08
ppm.bat	35.53 KB	-rwxrwxrwx	2021-01-24 18:08
ppm.pl	33.99 KB	-rw-rw-rw-	2021-01-24 18:01
primes.bat	21.45 KB	-rwxrwxrwx	2021-01-24 18:08
primes.pl	20.34 KB	-rw-rw-rw-	2021-01-24 18:01
prove.bat	14.07 KB	-rwxrwxrwx	2023-11-19 11:41
ptar	3.38 KB	-rw-rw-rw-	2021-01-24 18:01
ptar.bat	4.28 KB	-rwxrwxrwx	2021-01-24 18:08
ptardiff	2.48 KB	-rw-rw-rw-	2021-01-24 18:01
ptardiff.bat	3.35 KB	-rwxrwxrwx	2021-01-24 18:08
ptargrep	4.19 KB	-rw-rw-rw-	2021-01-24 18:01
ptargrep.bat	5.14 KB	-rwxrwxrwx	2021-01-24 18:08
runperl.bat	2.72 KB	-rwxrwxrwx	2021-01-24 18:08
scan-perl-prereqs-nqlite	5.28 KB	-rw-rw-rw-	2021-01-24 16:24
scan-perl-prereqs-nqlite.bat	6 KB	-rwxrwxrwx	2021-01-24 18:08
search.bat	55.83 KB	-rwxrwxrwx	2021-01-24 18:08
shasum.bat	10.48 KB	-rwxrwxrwx	2023-11-19 11:41
splain.bat	20.43 KB	-rwxrwxrwx	2024-07-26 17:42
streamzip	5.45 KB	-rw-rw-rw-	2021-01-24 18:01
streamzip.bat	6.17 KB	-rwxrwxrwx	2021-01-24 18:08
stubmaker.bat	4.01 KB	-rwxrwxrwx	2021-01-24 18:08
stubmaker.pl	3.35 KB	-rw-rw-rw-	2021-01-24 18:01
test-yaml	1017 B	-rw-rw-rw-	2021-01-24 18:01
test-yaml.bat	1.56 KB	-rwxrwxrwx	2021-01-24 18:08
tpage	8.85 KB	-rw-rw-rw-	2021-01-24 18:01
tpage.bat	9.64 KB	-rwxrwxrwx	2021-01-24 18:08
ttree	38.21 KB	-rw-rw-rw-	2021-01-24 18:01
ttree.bat	39.9 KB	-rwxrwxrwx	2021-01-24 18:08
use-devel-checklib	2.7 KB	-rw-rw-rw-	2021-01-24 16:53
use-devel-checklib.bat	3.31 KB	-rwxrwxrwx	2021-01-24 18:08
whirlpoolsum	4.93 KB	-rw-rw-rw-	2021-01-24 18:01
whirlpoolsum.bat	5.67 KB	-rwxrwxrwx	2021-01-24 18:08
wperl.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
xml_grep	13.32 KB	-rw-rw-rw-	2021-01-24 18:01
xml_grep.bat	14.3 KB	-rwxrwxrwx	2021-01-24 18:08
xml_merge	3.89 KB	-rw-rw-rw-	2021-01-24 18:01
xml_merge.bat	4.55 KB	-rwxrwxrwx	2021-01-24 18:08
xml_pp	7.82 KB	-rw-rw-rw-	2021-01-24 18:01
xml_pp.bat	8.61 KB	-rwxrwxrwx	2021-01-24 18:08
xml_spellcheck	6.34 KB	-rw-rw-rw-	2021-01-24 18:01
xml_spellcheck.bat	7.1 KB	-rwxrwxrwx	2021-01-24 18:08
xml_split	21.13 KB	-rw-rw-rw-	2021-01-24 18:01
xml_split.bat	22.27 KB	-rwxrwxrwx	2021-01-24 18:08
xsubpp.bat	5.78 KB	-rwxrwxrwx	2023-11-19 11:41
zipdetails	56.01 KB	-rw-rw-rw-	2021-01-24 18:01
zipdetails.bat	58.95 KB	-rwxrwxrwx	2021-01-24 18:08

Rename

@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
IF EXIST "%~dp0perl.exe" (
"%~dp0perl.exe" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
) ELSE IF EXIST "%~dp0..\..\bin\perl.exe" (
"%~dp0..\..\bin\perl.exe" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
) ELSE (
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
)

goto endofperl
:WinNT
IF EXIST "%~dp0perl.exe" (
"%~dp0perl.exe" -x -S %0 %*
) ELSE IF EXIST "%~dp0..\..\bin\perl.exe" (
"%~dp0..\..\bin\perl.exe" -x -S %0 %*
) ELSE (
perl -x -S %0 %*
)

if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!perl
#line 29
    eval 'exec \xampp\perl\bin\perl.exe -S $0 ${1+"$@"}'
	if $running_under_some_shell;
#!/usr/bin/perl

=head1 NAME

corelist - a commandline frontend to Module::CoreList

=head1 DESCRIPTION

See L<Module::CoreList> for one.

=head1 SYNOPSIS

corelist -v
   corelist [-a|-d] <ModuleName> | /<ModuleRegex>/ [<ModuleVersion>] ...
   corelist [-v <PerlVersion>] [ <ModuleName> | /<ModuleRegex>/ ] ...
   corelist [-r <PerlVersion>] ...
   corelist --utils [-d] <UtilityName> [<UtilityName>] ...
   corelist --utils -v <PerlVersion>
   corelist --feature <FeatureName> [<FeatureName>] ...
   corelist --diff PerlVersion PerlVersion
   corelist --upstream <ModuleName>

=head1 OPTIONS

=over

=item -a

lists all versions of the given module (or the matching modules, in case you
used a module regexp) in the perls Module::CoreList knows about.

corelist -a Unicode

Unicode was first released with perl v5.6.2
      v5.6.2     3.0.1
      v5.8.0     3.2.0
      v5.8.1     4.0.0
      v5.8.2     4.0.0
      v5.8.3     4.0.0
      v5.8.4     4.0.1
      v5.8.5     4.0.1
      v5.8.6     4.0.1
      v5.8.7     4.1.0
      v5.8.8     4.1.0
      v5.8.9     5.1.0
      v5.9.0     4.0.0
      v5.9.1     4.0.0
      v5.9.2     4.0.1
      v5.9.3     4.1.0
      v5.9.4     4.1.0
      v5.9.5     5.0.0
      v5.10.0    5.0.0
      v5.10.1    5.1.0
      v5.11.0    5.1.0
      v5.11.1    5.1.0
      v5.11.2    5.1.0
      v5.11.3    5.2.0
      v5.11.4    5.2.0
      v5.11.5    5.2.0
      v5.12.0    5.2.0
      v5.12.1    5.2.0
      v5.12.2    5.2.0
      v5.12.3    5.2.0
      v5.12.4    5.2.0
      v5.13.0    5.2.0
      v5.13.1    5.2.0
      v5.13.2    5.2.0
      v5.13.3    5.2.0
      v5.13.4    5.2.0
      v5.13.5    5.2.0
      v5.13.6    5.2.0
      v5.13.7    6.0.0
      v5.13.8    6.0.0
      v5.13.9    6.0.0
      v5.13.10   6.0.0
      v5.13.11   6.0.0
      v5.14.0    6.0.0
      v5.14.1    6.0.0
      v5.15.0    6.0.0

=item -d

finds the first perl version where a module has been released by
date, and not by version number (as is the default).

=item --diff

Given two versions of perl, this prints a human-readable table of all module
changes between the two.  The output format may change in the future, and is
meant for I<humans>, not programs.  For programs, use the L<Module::CoreList>
API.

=item -? or -help

help! help! help! to see more help, try --man.

=item -man

all of the help

=item -v

lists all of the perl release versions we got the CoreList for.

If you pass a version argument (value of C<$]>, like C<5.00503> or C<5.008008>),
you get a list of all the modules and their respective versions.
(If you have the C<version> module, you can also use new-style version numbers,
like C<5.8.8>.)

In module filtering context, it can be used as Perl version filter.

=item -r

lists all of the perl releases and when they were released

If you pass a perl version you get the release date for that version only.

=item --utils

lists the first version of perl each named utility program was released with

May be used with -d to modify the first release criteria.

If used with -v <version> then all utilities released with that version of perl
are listed, and any utility programs named on the command line are ignored.

=item --feature, -f

lists the first version bundle of each named feature given

=item --upstream, -u

Shows if the given module is primarily maintained in perl core or on CPAN
and bug tracker URL.

=back

As a special case, if you specify the module name C<Unicode>, you'll get
the version number of the Unicode Character Database bundled with the
requested perl versions.

=cut

BEGIN { pop @INC if $INC[-1] eq '.' }
use Module::CoreList;
use Getopt::Long qw(:config no_ignore_case);
use Pod::Usage;
use strict;
use warnings;
use List::Util qw/maxstr/;

my %Opts;

pod2usage(1) if $Opts{help};
pod2usage(-verbose=>2) if $Opts{man};

if(exists $Opts{r} ){
    if ( !$Opts{r} ) {
        print "\nModule::CoreList has release info for the following perl versions:\n";
        my $versions = { };
        my $max_ver_len = max_mod_len(\%Module::CoreList::released);
        for my $ver ( grep !/0[01]0$/, sort keys %Module::CoreList::released ) {
          printf "%-${max_ver_len}s    %s\n", format_perl_version($ver), $Module::CoreList::released{$ver};
        }
        print "\n";
        exit 0;
    }

my $num_r = numify_version( $Opts{r} );
    my $version_hash = Module::CoreList->find_version($num_r);

if( !$version_hash ) {
        print "\nModule::CoreList has no info on perl $Opts{r}\n\n";
        exit 1;
    }

printf "Perl %s was released on %s\n\n", format_perl_version($num_r), $Module::CoreList::released{$num_r};
    exit 0;
}

if(exists $Opts{v} ){
    if( !$Opts{v} ) {
        print "\nModule::CoreList has info on the following perl versions:\n";
        print format_perl_version($_)."\n" for grep !/0[01]0$/, sort keys %Module::CoreList::version;
        print "\n";
        exit 0;
    }

my $num_v = numify_version( $Opts{v} );

if ($Opts{utils}) {
        utilities_in_version($num_v);
        exit 0;
    }

my $version_hash = Module::CoreList->find_version($num_v);

if( !$version_hash ) {
        print "\nModule::CoreList has no info on perl $Opts{v}\n\n";
        exit 1;
    }

if ( !@ARGV ) {
	print "\nThe following modules were in perl $Opts{v} CORE\n";
	my $max_mod_len = max_mod_len($version_hash);
	for my $mod ( sort keys %$version_hash ) {
	    printf "%-${max_mod_len}s  %s\n", $mod, $version_hash->{$mod} || "";
	}
	print "\n";
	exit 0;
    }
}

if ($Opts{diff}) {
    if(@ARGV != 2) {
        die "\nprovide exactly two perl core versions to diff with --diff\n";
    }

my ($old_ver, $new_ver) = @ARGV;

my $old = numify_version($old_ver);
    if ( !Module::CoreList->find_version($old) ) {
        print "\nModule::CoreList has no info on perl $old_ver\n\n";
        exit 1;
    }
    my $new = numify_version($new_ver);
    if ( !Module::CoreList->find_version($new) ) {
        print "\nModule::CoreList has no info on perl $new_ver\n\n";
        exit 1;
    }

my %diff = Module::CoreList::changes_between($old, $new);

for my $lib (sort keys %diff) {
      my $diff = $diff{$lib};

my $was = ! exists  $diff->{left} ? '(absent)'
              : ! defined $diff->{left} ? '(undef)'
              :                          $diff->{left};

my $now = ! exists  $diff->{right} ? '(absent)'
              : ! defined $diff->{right} ? '(undef)'
              :                          $diff->{right};

printf "%-35s %10s %10s\n", $lib, $was, $now;
    }
    exit(0);
}

if ($Opts{utils}) {
    die "\n--utils only available with perl v5.19.1 or greater\n"
        if $] < 5.019001;

die "\nprovide at least one utility name to --utils\n"
        unless @ARGV;

warn "\n-a has no effect when --utils is used\n"                 if $Opts{a};
    warn "\n--diff has no effect when --utils is used\n"             if $Opts{diff};
    warn "\n--upstream, or -u, has no effect when --utils is used\n" if $Opts{u};

my $when = maxstr(values %Module::CoreList::released);
    print "\n","Data for $when\n";

utility_version($_) for @ARGV;

exit(0);
}

if ($Opts{feature}) {
    die "\n--feature is only available with perl v5.16.0 or greater\n"
      if $] < 5.016;

die "\nprovide at least one feature name to --feature\n"
        unless @ARGV;

no warnings 'once';
    require feature;

my %feature2version;
    my @bundles =  map { $_->[0] }
                  sort { $b->[1] <=> $a->[1] }
                   map { [$_, numify_version($_)] }
                  grep { not /[^0-9.]/ }
                  keys %feature::feature_bundle;

for my $version (@bundles) {
        $feature2version{$_} = $version =~ /^\d\.\d+$/ ? "$version.0" : $version
            for @{ $feature::feature_bundle{$version} };
    }

# allow internal feature names, just in case someone gives us __SUB__
    # instead of current_sub.
    while (my ($name, $internal) = each %feature::feature) {
        $internal =~ s/^feature_//;
        $feature2version{$internal} = $feature2version{$name}
            if $feature2version{$name};
    }

my $when = maxstr(values %Module::CoreList::released);
    print "\n","Data for $when\n";

for my $feature (@ARGV) {
        print "feature \"$feature\" ",
            exists $feature2version{$feature}
                ? "was first released with the perl "
                  . format_perl_version(numify_version($feature2version{$feature}))
                  . " feature bundle\n"
                : "doesn't exist (or so I think)\n";
    }
    exit(0);
}

if ( !@ARGV ) {
    pod2usage(0);
}

while (@ARGV) {
	my ($mod, $ver);
	if ($ARGV[0] =~ /=/) {
	    ($mod, $ver) = split /=/, shift @ARGV;
	} else {
	    $mod = shift @ARGV;
	    $ver = (@ARGV && $ARGV[0] =~ /^\d/) ? shift @ARGV : "";
	}

if ($mod !~ m|^/(.*)/([imosx]*)$|) { # not a regex
	    module_version($mod,$ver);
	} else {
	    my $re;
	    eval { $re = $2 ? qr/(?$2)($1)/ : qr/$1/; }; # trap exceptions while building regex
	    if ($@) {
		# regex errors are usually like 'Quantifier follow nothing in regex; marked by ...'
		# then we drop text after ';' to shorten message
		my $errmsg = $@ =~ /(.*);/ ? $1 : $@;
		warn "\n$mod  is a bad regex: $errmsg\n";
		next;
	    }
	    my @mod = Module::CoreList->find_modules($re);
	    if (@mod) {
		module_version($_, $ver) for @mod;
	    } else {
		$ver |= '';
		print "\n$mod $ver has no match in CORE (or so I think)\n";
	    }

}
}

exit();

sub module_version {
    my($mod,$ver) = @_;

if ( $Opts{v} ) {
	my $numeric_v = numify_version($Opts{v});
	my $version_hash = Module::CoreList->find_version($numeric_v);
	if ($version_hash) {
	    print $mod, " ", $version_hash->{$mod} || 'undef', "\n";
	    return;
	}
	else { die "Shouldn't happen" }
    }

my $ret = $Opts{d}
	? Module::CoreList->first_release_by_date(@_)
	: Module::CoreList->first_release(@_);
    my $msg = $mod;
    $msg .= " $ver" if $ver;

my $rem = $Opts{d}
	? Module::CoreList->removed_from_by_date($mod)
	: Module::CoreList->removed_from($mod);

my $when = maxstr(values %Module::CoreList::released);
    print "\n","Data for $when\n";

if( defined $ret ) {
        my $deprecated = Module::CoreList->deprecated_in($mod);
        $msg .= " was ";
        $msg .= "first " unless $ver;
        $msg .= "released with perl " . format_perl_version($ret);
        $msg .= ( $rem ? ',' : ' and' ) . " deprecated (will be CPAN-only) in " . format_perl_version($deprecated) if $deprecated;
        $msg .= " and removed from " . format_perl_version($rem) if $rem;
    } else {
        $msg .= " was not in CORE (or so I think)";
    }

print $msg,"\n";

if( defined $ret and exists $Opts{u} ) {
        my $upstream = $Module::CoreList::upstream{$mod};
        $upstream = 'undef' unless $upstream;
        print "upstream: $upstream\n";
        if ( $upstream ne 'blead' ) {
            my $bugtracker = $Module::CoreList::bug_tracker{$mod};
            $bugtracker = 'unknown' unless $bugtracker;
            print "bug tracker: $bugtracker\n";
        }
    }

if(defined $ret and exists $Opts{a} and $Opts{a}){
        display_a($mod);
    }
}

sub utility_version {
    my ($utility) = @_;

require Module::CoreList::Utils;

my $released = $Opts{d}
        ? Module::CoreList::Utils->first_release_by_date($utility)
        : Module::CoreList::Utils->first_release($utility);

my $removed = $Opts{d}
        ? Module::CoreList::Utils->removed_from_by_date($utility)
        : Module::CoreList::Utils->removed_from($utility);

if ($released) {
        print "$utility was first released with perl ", format_perl_version($released);
        print " and later removed in ", format_perl_version($removed)
            if $removed;
        print "\n";
    } else {
        print "$utility was not in CORE (or so I think)\n";
    }
}

sub utilities_in_version {
    my ($version) = @_;

require Module::CoreList::Utils;

my @utilities = Module::CoreList::Utils->utilities($version);

if (not @utilities) {
        print "\nModule::CoreList::Utils has no info on perl $version\n\n";
        exit 1;
    }

print "\nThe following utilities were in perl ",
        format_perl_version($version), " CORE\n";
    print "$_\n" for sort { lc($a) cmp lc($b) } @utilities;
    print "\n";
}

sub max_mod_len {
    my $versions = shift;
    my $max = 0;
    for my $mod (keys %$versions) {
        $max = max($max, length $mod);
    }

return $max;
}

sub max {
    my($this, $that) = @_;
    return $this if $this > $that;
    return $that;
}

sub display_a {
    my $mod = shift;

for my $v (grep !/0[01]0$/, sort keys %Module::CoreList::version ) {
        next unless exists $Module::CoreList::version{$v}{$mod};

my $mod_v = $Module::CoreList::version{$v}{$mod} || 'undef';
        printf "  %-10s %-10s\n", format_perl_version($v), $mod_v;
    }
    print "\n";
}

{
    my $have_version_pm;
    sub have_version_pm {
        return $have_version_pm if defined $have_version_pm;
        return $have_version_pm = eval { require version; 1 };
    }
}

sub format_perl_version {
    my $v = shift;
    return $v if $v < 5.006 or !have_version_pm;
    return version->new($v)->normal;
}

sub numify_version {
    my $ver = shift;
    if ($ver =~ /\..+\./) {
	have_version_pm()
	    or die "You need to install version.pm to use dotted version numbers\n";
        $ver = version->new($ver)->numify;
    }
    $ver += 0;
    return $ver;
}

=head1 EXAMPLES

$ corelist File::Spec

File::Spec was first released with perl 5.005

$ corelist File::Spec 0.83

File::Spec 0.83 was released with perl 5.007003

$ corelist File::Spec 0.89

File::Spec 0.89 was not in CORE (or so I think)

$ corelist File::Spec::Aliens

File::Spec::Aliens  was not in CORE (or so I think)

$ corelist /IPC::Open/

IPC::Open2 was first released with perl 5

IPC::Open3 was first released with perl 5

$ corelist /MANIFEST/i

ExtUtils::Manifest was first released with perl 5.001

$ corelist /Template/

/Template/  has no match in CORE (or so I think)

$ corelist -v 5.8.8 B

B                        1.09_01

$ corelist -v 5.8.8 /^B::/

B::Asmdata               1.01
    B::Assembler             0.07
    B::Bblock                1.02_01
    B::Bytecode              1.01_01
    B::C                     1.04_01
    B::CC                    1.00_01
    B::Concise               0.66
    B::Debug                 1.02_01
    B::Deparse               0.71
    B::Disassembler          1.05
    B::Lint                  1.03
    B::O                     1.00
    B::Showlex               1.02
    B::Stackobj              1.00
    B::Stash                 1.00
    B::Terse                 1.03_01
    B::Xref                  1.01

=head1 COPYRIGHT

Currently maintained by the perl 5 porters E<lt>perl5-porters@perl.orgE<gt>.

This program is distributed under the same terms as perl itself.
See http://perl.org/ or http://cpan.org/ for more info on that.

=cut

__END__
:endofperl