This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
C:\strawberry\cpan\build\Catalyst-View-Text-Template-0.000-38dDSB>myfind . | |
. | |
.\Catalyst-View-Text-Template-0.000 | |
.\Catalyst-View-Text-Template-0.000\Changes | |
.\Catalyst-View-Text-Template-0.000\inc | |
.\Catalyst-View-Text-Template-0.000\inc\Module | |
.\Catalyst-View-Text-Template-0.000\inc\Module\Install | |
.\Catalyst-View-Text-Template-0.000\inc\Module\Install\Win32.pm | |
.\Catalyst-View-Text-Template-0.000\inc\Module\Install\WriteAll.pm | |
.\Catalyst-View-Text-Template-0.000\inc\Module\Install.pm |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ visitcpan -a=dist -q -- perl -E 'my @found = grep { $_ ne "Makefile.PL" && $_ ne "Build.PL" } glob "*.PL"; say "@ARGV : ", join(", ", @found) if @found' | |
AALLAN/Astro-ADS-1.20.7.tar.gz : adsquery.PL | |
AALLAN/Astro-Catalog-2.1.2.tar.gz : catalogs.PL, finder.PL, supercosmos.PL | |
AALLAN/Astro-Catalog-2.1.3.tar.gz : catalogs.PL, finder.PL, supercosmos.PL | |
AMALTSEV/XAO-Base-1.06b.tar.gz : BaseConfig.PL | |
AMAR/Wizard-0.1003.tar.gz : apacheAdmin.PL, wizard.PL | |
AMAR/Wizard-LDAP-0.1004.tar.gz : ldapAdmin.PL, ldapWizard.PL | |
AMAR/Wizard-LDAP-0.1006.tar.gz : ldapAdmin.PL, ldapWizard.PL | |
ASAVIGE/Acme-EyeDrops-1.55.tar.gz : xBuild.PL |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# with STDIN closed, $Config{$var} leaves the STDIN fd open | |
$ perl -MConfig -wE 'close STDIN; open my $fh, "</dev/null"; say fileno $fh; close $fh; say $Config{d_fork}; open $fh, "</dev/null"; say fileno $fh; close $fh' | |
0 | |
define | |
3 | |
# with STDIN as normal, $Config{$var} doesn't leak an fd | |
$ perl -MConfig -wE 'open my $fh, "</dev/null"; say fileno $fh; close $fh; say $Config{d_fork}; open $fh, "</dev/null"; say fileno $fh; close $fh' | |
3 | |
define |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Cwd qw/cwd/; | |
use File::Temp qw/tempdir/; | |
my ($tag, @args) = @ARGV; | |
die "usage: $0 <tag-name> [configure args]\n(Include '-Dusethreads' for threaded build)\n" | |
if not defined $tag; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use XDG; | |
use Data::Rx; | |
use YAML::XS qw/LoadFile/; | |
#--------------------------------------------------------------------------# | |
# spec |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
@@ -6,6 +6,5 @@ use File::Spec; | |
$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1; | |
(my $f = __FILE__) =~ s/p_//; | |
-my $filename = File::Spec->catfile(".", $f); | |
-$filename =~ s{/}{\\} if $^O eq 'Win32'; | |
+my $filename = File::Spec->rel2abs(File::Spec->catfile(".", $f)); | |
do $filename; die $@ if $@; | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Cwd qw/cwd/; | |
use File::Temp qw/tempdir/; | |
#--------------------------------------------------------------------------# | |
my $manual; | |
sub _die { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use 5.010; | |
use strict; | |
use warnings; | |
use File::Slurp 'read_file'; | |
my ($commitlist, $taglist) = @ARGV; | |
die "usage: $0 <commit-list> <tag-list>\n" | |
unless -f $commitlist && -f $taglist; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
sub _relayer { | |
my ($fh, $layers) = @_; | |
_debug("# requested layers (@{$layers}) to $fh\n"); | |
my %seen; | |
my @unique = grep { $_ ne 'unix' and $_ ne 'perlio' and !$seen{$_}++ } @$layers; | |
_debug("# applying unique layers (@unique) to $fh\n"); | |
binmode($fh, join(":", "", "raw", @unique)); | |
} | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use 5.011002; | |
use strict; | |
use warnings; | |
use Module::Build::ModuleInfo; | |
use Test::More; | |
my @cases = ( | |
'0.23', | |
'1.23', | |
'v0.1.2', |
OlderNewer