Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Tame autostub a bit
It was messing with Perl tools like `git add -p`.
  • Loading branch information
ingydotnet committed Dec 12, 2014
1 parent 178f8ad commit 4e97078
Showing 1 changed file with 6 additions and 1 deletion.
7 changes: 6 additions & 1 deletion lib/Inline/Module.pm
Expand Up @@ -7,7 +7,7 @@ use File::Path();
use File::Find();
use Carp 'croak';

# use XXX;
# use XXX;

my $inline_build_path = './blib/Inline';

Expand Down Expand Up @@ -211,6 +211,11 @@ sub handle_makestub {
sub handle_autostub {
my ($class, @args) = @_;

# Don't mess with Perl tools, while using PERL5OPT and autostub
return unless
$0 eq '-e' or
defined $ENV{_} and $ENV{_} =~ m!/prove[^/]*$!;

require lib;
lib->import('lib');

Expand Down

0 comments on commit 4e97078

Please sign in to comment.