Mercurial > hg > buildtools

changeset 7:86a7054b01d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleanups.
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 15 Jan 2011 03:58:15 +0200
parents 5665a846d227
children 8f11993b361d
files autopoop
diffstat 1 files changed, 2 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/autopoop	Wed Sep 24 02:13:39 2008 +0300
+++ b/autopoop	Sat Jan 15 03:58:15 2011 +0200
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# autopoop v0.57 (C) 2008 Matti 'ccr' Hamalainen
+# autopoop v0.58 (C) 2008-2011 Matti 'ccr' Hamalainen
 #
 # Tries to generate extra.mk.in from known configure.ac and other
 # autoconf m4-macros, scanning against Makefiles. Also checks for
@@ -186,16 +186,7 @@
 }
 
 sub scanfile($$$$$$$$) {
-  my $mypath = $_[0];
-  my $myfile = $_[1];
-  
-  my $scanned = $_[2];
-  my $substs = $_[3];
-  my $confsubsts = $_[4];
-  my $defines = $_[5];
-  
-  my $usenames = $_[6];
-  my $recurse = $_[7];
+  my ($mypath, $myfile, $scanned, $substs, $confsubsts, $defines, $usenames, $recurse) = @_;
 
   # Form real path and check if we have already scanned the file
   my $filename = realpath($mypath."/".$myfile);