view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/cpanauthors.pm view on Meta::CPAN
use Acme::MetaSyntactic::MultiList;
use Acme::CPANAuthors;
our @ISA = qw( Acme::MetaSyntactic::MultiList );
my %names = (
map {
lc $_ => map { tr/-/_/; $_ } join ' ', Acme::CPANAuthors->new($_)->id
} Acme::CPANAuthors->_list_categories()
);
# protect against empty categories (Acme::CPANAuthors::Dutch)
delete $names{$_} for grep !$names{$_}, keys %names;
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/daleks.pm view on Meta::CPAN
@ISA = qw(Acme::MetaSyntactic::List);
}
*_tr_nonword = \&Acme::MetaSyntactic::RemoteList::tr_nonword;
sub _uniq { return keys %{ { map { $_ => 1 } @_ } } }
%Remote = (
source => "http://maddingue.org/daleks/movies.txt",
extract => sub {
return sort _uniq(
map { $_ = _tr_nonword($_) ; s/^_+|_+$//g ; s/_+/_/g ; $_ }
grep { !/^\d/ }
grep { length }
split "\012", shift
)
},
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/dune.pm view on Meta::CPAN
# names individuals counts
glossu hasimir ilban otho
# names individuals countesses
edwina margot
# names individuals females
accadia alexandra_ecaz alia alra_kio amia_yo anirul annine ardeth aver_yohsa baram barbara_mutelli becca bellonda brigit_paterson bruda_viol calissa camie_boro caree_debrak carlana chalice chamal chani_kynes chaola_fenring chiara cienna cilla_moritan...
# names individuals fish_speakers
ardeth duncan_idaho nayla siaynoq
# names individuals fremen
akrab al_baz alia aliid chani_kynes defa_l_fanini duncan_idaho enno farok faroula forad frieth geoff ghanima harah heinar ichwan_bedwine iduali ishmael jafar jamis javid jerath jessica kaleff kamal_salah karmara_al_jofar korba leto_ii lichna liet_kyn...
# names individuals ixians
bronso_of_ix cammar_pilru ctair_pilru davee_rogo dmurr_pilru dominic_vernius gaylord_vernius handon hwi_noree jehanne_butler kailea_vernius miral_alchem norma_cevna rhombur_vernius shando_vernius shayama_sen stina_pilru suboid tessia_vernius tio_holt...
# names individuals league_of_nobles_members
bovko_manresa brevin_okukovich chiry emil_tantor faykan_butler fredo_butler hosten_fru jaymes_powder jimbay_whit jool_noret keats lauderdale lucille_tantor manion_butler nivny_omura pinquer_jibb quentin_butler rajid_suk rell_arkov rico rikov_butler s...
# names individuals males
view release on metacpan or search on metacpan
devdata/article.html view on Meta::CPAN
</div>
<!-- wrap END -->
<!-- wpcom_wp_footer -->
<div style="display:none">
<div class="grofile-hash-map-d2a04d1a780a0a9a7aa6c07bf6c50496">
</div>
<div class="grofile-hash-map-facc9f4a1bcb0e41f30c40d4317ee881">
</div>
<div class="grofile-hash-map-03ad7534cf2f28dbee8727a02754bc3e">
</div>
<div class="grofile-hash-map-4937e7dd94d873276cd71991ccc93e6c">
</div>
<div class="grofile-hash-map-1184667c334f1401a3742df0167e9226">
</div>
<div class="grofile-hash-map-b726d367e8a92618a3661a020f6c9868">
</div>
<div class="grofile-hash-map-7ac2b13baf38757f80db6038c72d31c1">
</div>
<div class="grofile-hash-map-76cbc13c46f61dbb027252c47282f9f1">
</div>
<div class="grofile-hash-map-dc2869689da038f24648cb9e67c7eef0">
</div>
<div class="grofile-hash-map-6a5f2458955211d05951fefdbb143265">
</div>
</div>
<script type='text/javascript'>
/* <![CDATA[ */
var HighlanderComments = {"loggingInText":"Logging In\u2026","submittingText":"Memposkan Komentar\u2026","postCommentText":"Kirim Komentar","connectingToText":"Connecting to %s","commentingAsText":"%1$s: You are commenting using your %2$s account.","...
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
view release on metacpan or search on metacpan
inc/Test/Run/Builder.pm view on Meta::CPAN
"ctags",
qw(-f tags --recurse --totals
--exclude=blib/** --exclude=t/lib/**
--exclude=**/.svn/** --exclude='*~'),
"--exclude=".$self->dist_name()."-*/**",
qw(--languages=Perl --langmap=Perl:+.t)
);
}
1;
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/morning_musume.pm view on Meta::CPAN
use Acme::MorningMusume;
our @ISA = qw( Acme::MetaSyntactic::MultiList );
our $VERSION = '1.002';
my $musume = Acme::MorningMusume->new;
#my @all = map { $_->name_en } $musume->members;
my @active = map { $_->name_en } $musume->members('active');
my @graduate = map { $_->name_en } $musume->members('graduate');
__PACKAGE__->init(
{ default => 'active',
names => {
active => join (' ', @active),
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/nethack.pm view on Meta::CPAN
scroll_of_light
scroll_of_teleportation
scroll_of_gold_detection
scroll_of_food_detection
scroll_of_identify
scroll_of_magic_mapping
scroll_of_amnesia
scroll_of_fire
scroll_of_earth
scroll_of_punishment
scroll_of_charging
lib/Acme/MetaSyntactic/nethack.pm view on Meta::CPAN
spellbook_of_extra_healing
spellbook_of_restore_ability
spellbook_of_invisibility
spellbook_of_detect_treasure
spellbook_of_remove_curse
spellbook_of_magic_mapping
spellbook_of_identify
spellbook_of_turn_undead
spellbook_of_polymorph
spellbook_of_teleport_away
spellbook_of_create_familiar
lib/Acme/MetaSyntactic/nethack.pm view on Meta::CPAN
Book_of_the_Dead
# names objects/unknown/wands
glass_wand
balsa_wand
crystal_wand
maple_wand
pine_wand
oak_wand
ebony_wand
marble_wand
tin_wand
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
checkpath
checktime
clast
clist
close
cmapclear
cnewer
cnext
cNext
cnfile
cNfile
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
cpfile
cprevious
cquit
crewind
cunabbrev
cunmap
cwindow
debuggreedy
delcommand
delete
DeleteFirst
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
iabbrev
iabclear
if
ijump
ilist
imapclear
inoreabbrev
isearch
isplit
iunabbrev
iunmap
join
jumps
k
keepalt
keepjumps
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
list
ll
llast
llist
lmake
lmap
lmapclear
lnewer
lnext
lNext
lnfile
lNfile
lnoremap
loadview
lockmarks
lockvar
lolder
lopen
lpfile
lprevious
lrewind
ls
ltag
lunmap
lvimgrep
lvimgrepadd
lwindow
make
mark
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
nbkey
NetrwSettings
new
next
Next
nmapclear
nohlsearch
noreabbrev
Nread
number
nunmap
Nw
omapclear
only
open
options
ounmap
pclose
pedit
perl
perldo
pop
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
silent
simalt
slast
sleep
smagic
smap
smapclear
sme
smenu
snext
sNext
sniff
snomagic
snoremap
snoreme
snoremenu
sort
source
spelldump
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
stjump
stop
stopinsert
stselect
sunhide
sunmap
suspend
sview
syncbind
t
tab
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
undo
undojoin
undolist
unhide
unlockvar
unmap
update
verbose
version
vertical
Vexplore
view
vimgrep
vimgrepadd
visual
viusage
vmapclear
vnew
vsplit
vunmap
wall
while
wincmd
windo
winpos
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
wsverb
wviminfo
X
xall
xit
xmap
xmapclear
xme
xmenu
XMLent
XMLns
xnoremap
xnoreme
xnoremenu
xunmap
yank
# names commands/abbreviated
ab
abc
abo
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
che
checkt
cla
cl
clo
cmapc
cnew
cn
cN
cnf
cNf
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
his
ia
iabc
ij
il
imapc
inorea
is
isp
iuna
iu
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
l
lla
lli
lmak
lm
lmapc
lnew
lne
lN
lnf
lNf
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
m
mzf
mz
n
N
nmapc
noh
norea
nu
nun
omapc
on
o
opt
ou
pc
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
sim
sla
sl
sm
sm
smapc
sn
sN
sni
sno
snor
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
vie
vim
vimgrepa
vi
viu
vmapc
vne
vs
vu
wa
wh
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
ws
wv
xa
x
xm
xmapc
xn
xu
y
# names options/full
aleph
allowrevins
altkeymap
ambiwidth
antialias
autochdir
arabic
arabicshape
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
breakat
browsedir
bufhidden
buflisted
buftype
casemap
cdpath
cedit
charconvert
cindent
cinkeys
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
fileencodings
fileformat
fileformats
filetype
fillchars
fkmap
foldclose
foldcolumn
foldenable
foldexpr
foldignore
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
helplang
hidden
highlight
hlsearch
history
hkmap
hkmapp
icon
iconstring
ignorecase
imactivatekey
imcmdline
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
isident
iskeyword
isprint
joinspaces
key
keymap
keymodel
keywordprg
langmap
langmenu
laststatus
lazyredraw
linebreak
lines
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
makeprg
matchpairs
matchtime
maxcombine
maxfuncdepth
maxmapdepth
maxmem
maxmempattern
maxmemtot
menuitems
mkspellmem
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
printmbfont
printoptions
pumheight
quoteescape
readonly
remap
report
restorescreen
revins
rightleft
rightleftcmd
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
isp
js
kmp
km
kp
lmap
lm
ls
lz
lbr
lsp
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
getwinvar
glob
globpath
has
has_key
hasmapto
histadd
histdel
histget
histnr
hlexists
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
libcallnr
line
line2byte
lispindent
localtime
map
maparg
mapcheck
match
matcharg
matchend
matchlist
matchstr
view release on metacpan or search on metacpan
lib/Acme/Mitey/Cards/Card.pm.mite.pm view on Meta::CPAN
my $class = shift;
$class = ref($class) || $class;
my $linear_isa = mro::get_linear_isa($class);
return {
BUILD => [
map { ( *{$_}{CODE} ) ? ( *{$_}{CODE} ) : () }
map { "$_\::BUILD" } reverse @$linear_isa
],
DEMOLISH => [
map { ( *{$_}{CODE} ) ? ( *{$_}{CODE} ) : () }
map { "$_\::DEMOLISH" } @$linear_isa
],
HAS_BUILDARGS => $class->can('BUILDARGS'),
HAS_FOREIGNBUILDARGS => $class->can('FOREIGNBUILDARGS'),
};
}
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# Normalise multipart versions
$s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg;
}
$s =~ s/^(\d+)\.?//;
my $l = $1 || 0;
my @v = map {
$_ . '0' x (3 - length $_)
} $s =~ /(\d{1,3})\D?/g;
$l = $l . '.' . join '', @v if @v;
return $l + 0;
}
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# Normalise multipart versions
$s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg;
}
$s =~ s/^(\d+)\.?//;
my $l = $1 || 0;
my @v = map {
$_ . '0' x (3 - length $_)
} $s =~ /(\d{1,3})\D?/g;
$l = $l . '.' . join '', @v if @v;
return $l + 0;
}
view release on metacpan or search on metacpan
lib/Acme/Monkey/Frame.pm view on Meta::CPAN
has 'layers' => (is=>'rw', isa=>'HashRef', default=>sub{ {} });
sub draw {
my ($self) = @_;
my @layers = map { $self->layers->{$_} } sort keys( %{ $self->layers() } );
my $content = '';
foreach my $y (1..$self->height()) {
foreach my $x (1..$self->width()) {
my $char;
view release on metacpan or search on metacpan
lib/Acme/MorningMusume.pm view on Meta::CPAN
NonakaMiki
MakinoMaria
HagaAkane
);
my @date_joined = map {
my ($year, $month, $day) = ($_ =~ /(\d{4})-(\d{2})-(\d{2})/);
DateTime->new(
year => $year,
month => $month,
day => $day,
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
sub _version {
my $s = shift || 0;
$s =~ s/^(\d+)\.?//;
my $l = $1 || 0;
my @v = map { $_ . '0' x (3 - length $_) } $s =~ /(\d{1,3})\D?/g;
$l = $l . '.' . join '', @v if @v;
return $l + 0;
}
1;
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
}
delete $args->{SIGN} unless $self->is_admin;
# merge both kinds of requires into prereq_pm
my $prereq = ($args->{PREREQ_PM} ||= {});
%$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
($self->build_requires, $self->requires) );
# merge both kinds of requires into prereq_pm
my $dir = ($args->{DIR} ||= []);
if ($self->bundles) {
push @$dir, map "$_->[1]", @{$self->bundles};
delete $prereq->{$_->[0]} for @{$self->bundles};
}
if (my $perl_version = $self->perl_version) {
eval "use $perl_version; 1"
or die "ERROR: perl: Version $] is installed, ".
"but we need version >= $perl_version";
}
my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;
if ($self->admin->preop) {
$args{dist} = $self->admin->preop;
}
view release on metacpan or search on metacpan
lib/Acme/Nogizaka46.pm view on Meta::CPAN
YonetokuKyoka
WatanabeMiria
MatsuiRena
);
my %date_joined = map {
my ($class, $year, $month, $day) = ($_ =~ /(\w+):(\d{4})-(\d{2})-(\d{2})/);
$class => DateTime->new(
year => $year,
month => $month,
day => $day,
view release on metacpan or search on metacpan
lib/Acme/Nyaa/Ja.pm view on Meta::CPAN
my $text = q();
my $nekobuffer = q();
my $leftbuffer = q();
my $buffersize = 144;
my $entityrmap = {
'、' => 'ã€',
'。' => '。',
};
return q() unless $ref1 =~ m/(?:ARRAY|SCALAR)/;
lib/Acme/Nyaa/Ja.pm view on Meta::CPAN
} else {
$nekobuffer .= $r;
}
for my $e ( keys %$entityrmap ) {
# Convert character entity reference to character itself.
next unless $nekobuffer =~ m/$e/;
$nekobuffer =~ s/$e/$entityrmap->{ $e }/g;
}
if( length $nekobuffer < $buffersize ) {
if( $nekobuffer =~ m/(.+$RxPeriod)(.*)/msx ) {
view release on metacpan or search on metacpan
lib/Tie/Cycle.pm view on Meta::CPAN
}
sub STORE {
my( $self, $list_ref ) = @_;
return unless ref $list_ref eq ref [];
my @shallow_copy = map { $_ } @$list_ref;
$self->[CURSOR_COL] = 0;
$self->[COUNT_COL] = scalar @shallow_copy;
$self->[ITEM_COL] = \@shallow_copy;
}
view release on metacpan or search on metacpan
Octarine.pm view on Meta::CPAN
require CPANPLUS::Backend;
# Currently CPANPLUS only supports one backend per program.
my $cp = CPANPLUS::Backend->new;
$cp->configure_object()->set_conf(verbose=>0);
@Acmes = map {$_->name} $cp->search(type => 'module',
allow => [qr/^Acme::/]);
sub random_acme_module {
$Acmes[rand @Acmes];
}
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
view release on metacpan or search on metacpan
t/00-compile.t view on Meta::CPAN
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
my $stderr = IO::Handle->new;
diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
$^X, @switches, '-e', "require q[$lib]"))
if $ENV{PERL_COMPILE_TEST_DEBUG};
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';