Use Perl prototypes instead of shift.

git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@157228 91177308-0d34-0410-b5e6-96231b3b80d8

diff --git a/utils/analyzer/reducer.pl b/utils/analyzer/reducer.pl
index f2dac1fc10ec421028c5d4dbd958a6b2b8afdba3..095d501d0a93f5f65482633915d5592384c4b22a 100755 (executable)
--- a/utils/analyzer/reducer.pl
+++ b/utils/analyzer/reducer.pl
@@ -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");
 }