# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1295056695 -7200
# Node ID 86a7054b01d56ec3ee5caa6948e5aa986aae02df
# Parent  5665a846d227876bb21674ec5a930f75037ceba9
Cleanups.

diff -r 5665a846d227 -r 86a7054b01d5 autopoop
--- 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);