From f171a0f07e2237bd32980019ba8b5607ec636ec3 Mon Sep 17 00:00:00 2001
From: Jan Engelhardt <jengelh@medozas.de>
Date: Fri, 14 May 2010 13:03:16 +0200
Subject: [PATCH] xa-d-m: remove superfluous protos

---
 xa-download-more | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/xa-download-more b/xa-download-more
index 34aa589..16f6db7 100755
--- a/xa-download-more
+++ b/xa-download-more
@@ -6,7 +6,7 @@ use strict;
 
 &main(\@ARGV);
 
-sub main ($)
+sub main
 {
 	local *FH;
 
@@ -30,7 +30,7 @@ sub main ($)
 	close FH;
 }
 
-sub process_index ($)
+sub process_index
 {
 	my $top = shift @_;
 	my($agent, $res, $url);
@@ -68,14 +68,14 @@ sub process_index ($)
 	}
 }
 
-sub slash_remove ($)
+sub slash_remove
 {
 	my $s = shift @_;
 	$s =~ s{(\w+://)(.*)}{$1.&slash_remove2($2)}eg;
 	return $s;
 }
 
-sub slash_remove2 ($)
+sub slash_remove2
 {
 	my $s = shift @_;
 	$s =~ s{/+}{/}g;