Skip to content

Instantly share code, notes, and snippets.

diff --git a/lib/CPAN/Module.pm b/lib/CPAN/Module.pm
index 7d65b34..4fbbcab 100644
--- a/lib/CPAN/Module.pm
+++ b/lib/CPAN/Module.pm
@@ -621,7 +621,9 @@ sub _file_in_path {
}
foreach $dir (@$path) {
my $pmfile = File::Spec->catfile($dir,@packpath);
+ warn "*** looking for $pmfile\n" if $self->{ID} eq "IO::Tty";
if (-f $pmfile) {
#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
use Carp;
use IO::Prompt::Tiny qw/prompt/;
use Net::GitHub;
use Path::Tiny;
use RT::Client::REST::Ticket;
use RT::Client::REST;
@dagolden
dagolden / gist:5576d1276e1ae2159432
Created January 13, 2015 02:35
Data::Fake SYNOPSIS
use Data::Fake qw/Core Names Text Dates/;
my $hero_factory = fake_hash(
{
name => fake_name(),
battlecry => fake_sentences(1),
birthday => fake_past_date("%Y-%m-%d"),
friends => fake_var_array( 3, 6, fake_name() ),
gender => fake_choice(qw/Male Female Other/),
}
use 5.008;
use strict;
use warnings;
package Dist::Zilla::Plugin::Pod2Readme;
# ABSTRACT: Generate README from Pod, as simply as possible
our $VERSION = '0.001';
use Dist::Zilla 5 ();
Summary of my perl5 (revision 5 version 21 subversion 7) configuration:
Commit id: 94708f6d9bd9347f0cbb485f61d2f74215b62fd4
Platform:
osname=darwin, osvers=14.0.0, archname=darwin-thread-multi-2level
uname='darwin metis.local 14.0.0 darwin kernel version 14.0.0: fri sep 19 00:26:44 pdt 2014; root:xnu-2782.1.97~2release_x86_64 x86_64 '
config_args='-des -Dusedevel -Uversiononly -Dusethreads -DDEBUGGING -Dman1dir=none -Dman3dir=none [email protected] [email protected] -Dcc=ccache clang -Qunused-arguments -fcolor-diagnostics -Dcf_by=dagolden -Dprefix=/var/folders/5t/sy1gxkwj2l1gfd20s2g470200000gn/T/blead-v5.21.6-221-g94708f6'
hint=recommended, useposix=true, d_sigaction=define
useithreads=define, usemultiplicity=define
use64bitint=define, use64bitall=define, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
PERL_DL_NONLAZY=1 /Users/david/.plenv/versions/20.0/bin/perl5.20.0 "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib/lib', 'blib/arch')" t/mldistwatch.t
Alert: did not find private directory pauselib[/Users/david/git/pause/blib/lib] try[/Users/david/git/pause/blib/privatelib] at /Users/david/git/pause/blib/lib/PAUSE.pm line 64.
Compilation failed in require at t/mldistwatch.t line 13.
BEGIN failed--compilation aborted at t/mldistwatch.t line 13.
t/mldistwatch.t ..
Dubious, test returned 2 (wstat 512, 0x200)
No subtests run
Test Summary Report
-------------------
PERL_DL_NONLAZY=1 /Users/david/.plenv/versions/20.0/bin/perl5.20.0 "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib/lib', 'blib/arch')" t/mldistwatch.t
t/mldistwatch.t ..
Dubious, test returned 2 (wstat 512, 0x200)
No subtests run
Test Summary Report
-------------------
t/mldistwatch.t (Wstat: 512 Tests: 0 Failed: 0)
Non-zero exit status: 2
Parse errors: No plan found in TAP output
Bernie Hackett 5979 (46%)
A. Jesse Jiryu Davis 3534 (27%)
Mike Dirolf 2349 (18%)
Ross Lawley 317 (2%)
Luke Lovett 249 (1%)
hawka 139 (1%)
Justin Patrin 125 (0%)
Mathias Stearn 61 (0%)
Karlis Lauva 30 (0%)
Michael Henson 17 (0%)
@dagolden
dagolden / gist:72e21770f41afb438938
Created November 9, 2014 03:30
path_looks_legal
sub path_looks_legal {
my ($path) = @_;
my @native = File::Spec->splitpath($path);
my @unix = File::Spec::Unix->splitpath($path);
return if sum( map { $native[$_] ne $unix[$_] ? 1 : 0 } 0 .. 2 );
@native = File::Spec->splitdir($native[1]);
@unix = File::Spec::Unix->splitdir($unix[1]);