This file contains hidden or 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
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) { |
This file contains hidden or 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 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; |
This file contains hidden or 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 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/), | |
} |
This file contains hidden or 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.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 (); |
This file contains hidden or 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
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 |
This file contains hidden or 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
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 | |
------------------- |
This file contains hidden or 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
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 |
This file contains hidden or 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
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%) |
This file contains hidden or 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 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]); |
This file contains hidden or 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.008001; | |
use strict; | |
use warnings; | |
package recommended; | |
# ABSTRACT: Load a recommended module and don't die if it doesn't exist | |
use version; | |
use Carp (); | |
use Module::Runtime 0.014 (); # bugfixes for use_module_optimistically |