Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
the check for ancient Test::Harness is no longer needed, methinks.
  • Loading branch information
timo committed Jan 12, 2013
1 parent 397c0f9 commit 10dade9
Showing 1 changed file with 0 additions and 12 deletions.
12 changes: 0 additions & 12 deletions src/HLL/Compiler.pm
Expand Up @@ -235,18 +235,6 @@ class HLL::Compiler {
}

method command_line(@args, *%adverbs) {
## this bizarre piece of code causes the compiler to
## immediately abort if it looks like it's being run
## from Perl's Test::Harness. (Test::Harness versions 2.64
## from October 2006
## and earlier have a hardwired commandline option that is
## always passed to an initial run of the interpreter binary,
## whether you want it or not.) We expect to remove this
## check eventually (or make it a lot smarter than it is here).
if nqp::index(@args[2], '@INC') >= 0 {
nqp::exit(0);
}

my $program-name := @args[0];
my $res := self.process_args(@args);
my %opts := $res.options;
Expand Down

0 comments on commit 10dade9

Please sign in to comment.