Remove all the generated files from revision control. Add a MANIFEST.SKIP and a ...

[catagits/Catalyst-Engine-SCGI.git] / inc / Module / Install / Can.pm

diff --git a/inc/Module/Install/Can.pm b/inc/Module/Install/Can.pm
deleted file mode 100644 (file)
index e65e4f6..0000000
--- a/inc/Module/Install/Can.pm
+++ /dev/null
@@ -1,81 +0,0 @@
-#line 1
-package Module::Install::Can;
-
-use strict;
-use Config                ();
-use File::Spec            ();
-use ExtUtils::MakeMaker   ();
-use Module::Install::Base ();
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
-       $VERSION = '0.91';
-       @ISA     = 'Module::Install::Base';
-       $ISCORE  = 1;
-}
-
-# check if we can load some module
-### Upgrade this to not have to load the module if possible
-sub can_use {
-       my ($self, $mod, $ver) = @_;
-       $mod =~ s{::|\\}{/}g;
-       $mod .= '.pm' unless $mod =~ /\.pm$/i;
-
-       my $pkg = $mod;
-       $pkg =~ s{/}{::}g;
-       $pkg =~ s{\.pm$}{}i;
-
-       local $@;
-       eval { require $mod; $pkg->VERSION($ver || 0); 1 };
-}
-
-# check if we can run some command
-sub can_run {
-       my ($self, $cmd) = @_;
-
-       my $_cmd = $cmd;
-       return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
-
-       for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
-               next if $dir eq '';
-               my $abs = File::Spec->catfile($dir, $_[1]);
-               return $abs if (-x $abs or $abs = MM->maybe_command($abs));
-       }
-
-       return;
-}
-
-# can we locate a (the) C compiler
-sub can_cc {
-       my $self   = shift;
-       my @chunks = split(/ /, $Config::Config{cc}) or return;
-
-       # $Config{cc} may contain args; try to find out the program part
-       while (@chunks) {
-               return $self->can_run("@chunks") || (pop(@chunks), next);
-       }
-
-       return;
-}
-
-# Fix Cygwin bug on maybe_command();
-if ( $^O eq 'cygwin' ) {
-       require ExtUtils::MM_Cygwin;
-       require ExtUtils::MM_Win32;
-       if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
-               *ExtUtils::MM_Cygwin::maybe_command = sub {
-                       my ($self, $file) = @_;
-                       if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
-                               ExtUtils::MM_Win32->maybe_command($file);
-                       } else {
-                               ExtUtils::MM_Unix->maybe_command($file);
-                       }
-               }
-       }
-}
-
-1;
-
-__END__
-
-#line 156