dagolden

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

dagolden

$ 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

dagolden

# 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

dagolden

#!/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;

dagolden

#!/usr/bin/env perl
use strict;
use warnings;
use XDG;

use Data::Rx;
use YAML::XS qw/LoadFile/;

#--------------------------------------------------------------------------#
# spec

dagolden

@@ -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 $@;

dagolden

#!/usr/bin/perl
use strict;
use warnings;
use Cwd qw/cwd/;
use File::Temp qw/tempdir/;

#--------------------------------------------------------------------------#

my $manual;
sub _die { 

dagolden

#!/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;

dagolden

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));
}

dagolden

use 5.011002;
use strict;
use warnings;
use Module::Build::ModuleInfo;
use Test::More;

my @cases = (
  '0.23',
  '1.23',
  'v0.1.2',