Use Perl prototypes instead of shift.

llvm-svn: 157228
This commit is contained in:
Ted Kremenek 2012-05-22 00:52:49 +00:00
parent 94442980c0
commit c53ed2e158
1 changed files with 3 additions and 3 deletions

View File

@ -24,7 +24,7 @@ my $reduceOut = "$dir/reduceOut";
my $command;
if (scalar(@ARGV) > 0) { $command = \@ARGV; }
else {
my $compiler = "/Users/kremenek/llvm-cmake-release/bin/clang";
my $compiler = "clang";
$command = [$compiler, "-fsyntax-only", "-Wfatal-errors", "-Wno-deprecated-declarations", "-Wimplicit-function-declaration"];
}
push @$command, $srcFile;
@ -49,8 +49,8 @@ close(OUT);
`chmod +x $scriptFile`;
print "$prog: starting reduction\n";
sub multidelta {
my $level = shift @_;
sub multidelta($) {
my ($level) = @_;
system("multidelta -level=$level $scriptFile $srcFile");
}