Skip to content

Instantly share code, notes, and snippets.

View Catalyst-View-Text-Template file list
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
View CPAN dists with non-standard PL files
$ 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
View perl require bug?
# 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
View gitperl
#!/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;
View meta-yaml-rx.pl
#!/usr/bin/env perl
use strict;
use warnings;
use XDG;
use Data::Rx;
use YAML::XS qw/LoadFile/;
#--------------------------------------------------------------------------#
# spec
View gist:107326
@@ -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 $@;
View gitperl -- watch out for hardcoded stuff
#!/usr/bin/perl
use strict;
use warnings;
use Cwd qw/cwd/;
use File::Temp qw/tempdir/;
#--------------------------------------------------------------------------#
my $manual;
sub _die {
View retag.pl
#!/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;
View gist:228507
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));
}
View version-number-goals.pl
use 5.011002;
use strict;
use warnings;
use Module::Build::ModuleInfo;
use Test::More;
my @cases = (
'0.23',
'1.23',
'v0.1.2',