[cfe-commits] r157228 - /cfe/trunk/utils/analyzer/reducer.pl

[Ted Kremenek]

Author: kremenek
Date: Mon May 21 19:52:49 2012
New Revision: 157228

URL: http://llvm.org/viewvc/llvm-project?rev=157228&view=rev
Log:
Use Perl prototypes instead of shift.

Modified:
    cfe/trunk/utils/analyzer/reducer.pl

Modified: cfe/trunk/utils/analyzer/reducer.pl
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/utils/analyzer/reducer.pl?rev=157228&r1=157227&r2=157228&view=diff
==============================================================================
--- cfe/trunk/utils/analyzer/reducer.pl (original)
+++ cfe/trunk/utils/analyzer/reducer.pl Mon May 21 19:52:49 2012
@@ -24,7 +24,7 @@
 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 @@
 `chmod +x $scriptFile`;
 
 print "$prog: starting reduction\n";
-sub multidelta {
-    my $level = shift @_;
+sub multidelta($) {
+    my ($level) = @_;
     system("multidelta -level=$level $scriptFile $srcFile");
 }