Skip to content

Commit

Permalink
revert 5d0263a and leave a comment explaining why
Browse files Browse the repository at this point in the history
  • Loading branch information
DrHyde committed Oct 30, 2016
1 parent 520cfc5 commit cecb92a
Showing 1 changed file with 9 additions and 3 deletions.
12 changes: 9 additions & 3 deletions lib/Devel/CheckOS.pm
Original file line number Diff line number Diff line change
Expand Up @@ -4,9 +4,6 @@ use strict;
use warnings;
use Exporter;

use File::Find::Rule;
use File::Spec;

use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);

our $VERSION = '1.77';
Expand Down Expand Up @@ -169,6 +166,15 @@ should Just Work anyway.
my ($re_Devel, $re_AssertOS);

sub list_platforms {
# need to lazily load these cos the module gets use()d in Makefile.PL,
# at which point pre-reqs might not be installed. This function isn't
# used in Makefile.PL so we can live without 'em.
eval " # only load these if needed
use File::Find::Rule;
use File::Spec;
";

die($@) if($@);
if (!$re_Devel) {
my $case_flag = File::Spec->case_tolerant ? '(?i)' : '';
$re_Devel = qr/$case_flag ^Devel$/x;
Expand Down

0 comments on commit cecb92a

Please sign in to comment.