version 1.40, 2013/02/02 13:45:11 |
version 1.41, 2014/03/06 08:58:43 |
|
|
my ($self, $ltprog) = @_; |
my ($self, $ltprog) = @_; |
my $m; |
my $m; |
for my $a (@$ltprog) { |
for my $a (@$ltprog) { |
if ($a =~ m/(install([.-]sh)?|cp)$/) { |
if ($a =~ m/(install([.-](sh|check))?|cp)$/) { |
$m = LT::Mode->factory('install', "implicit $a"); |
$m = LT::Mode->factory('install', "implicit $a"); |
} elsif ($a =~ m/cc|c\+\+/) { # XXX improve test |
} elsif ($a =~ m/cc|c\+\+/) { # XXX improve test |
if (grep { $_ eq '-c' } @ARGV) { |
if (grep { $_ eq '-c' } @ARGV) { |
|
|
tsay {"arg = \"$arg\""}; |
tsay {"arg = \"$arg\""}; |
# if the current argument is an install program, stop immediately |
# if the current argument is an install program, stop immediately |
if ($arg =~ /cp$/) { last; } |
if ($arg =~ /cp$/) { last; } |
if ($arg =~ /install([-.]sh)?$/) { last; } |
if ($arg =~ /install([-.](sh|check))?$/) { last; } |
} |
} |
tsay {"ltprog = \"@$ltprog\""}; |
tsay {"ltprog = \"@$ltprog\""}; |
|
|