anonfunc/xtables-addons
1
0
Fork 0
mirror of git://git.code.sf.net/p/xtables-addons/xtables-addons synced 2025-09-12 07:34:56 +02:00
Code Issues Releases Wiki Activity

xa-d-m: remove superfluous protos

Browse Source
This commit is contained in:
Jan Engelhardt
2010-05-14 13:03:16 +02:00
parent d17ddb9c94
commit f171a0f07e
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
xa-download-more
View File

@@ -6,7 +6,7 @@ use strict;
&main(\@ARGV); &main(\@ARGV);
sub main ($) sub main
{ {
local *FH; local *FH;
@@ -30,7 +30,7 @@ sub main ($)
close FH; close FH;
} }
sub process_index ($) sub process_index
{ {
my $top = shift @_; my $top = shift @_;
my($agent, $res, $url); my($agent, $res, $url);
@@ -68,14 +68,14 @@ sub process_index ($)
} }
} }
sub slash_remove ($) sub slash_remove
{ {
my $s = shift @_; my $s = shift @_;
$s =~ s{(\w+://)(.*)}{$1.&slash_remove2($2)}eg; $s =~ s{(\w+://)(.*)}{$1.&slash_remove2($2)}eg;
return $s; return $s;
} }
sub slash_remove2 ($) sub slash_remove2
{ {
my $s = shift @_; my $s = shift @_;
$s =~ s{/+}{/}g; $s =~ s{/+}{/}g;