From 3b69a56ae05c5a9f8de83528657cefd784c95a8f Mon Sep 17 00:00:00 2001 From: pcanterino <> Date: Sat, 22 Jan 2011 12:56:36 +0000 Subject: [PATCH] Some cleanings --- modules/Tool.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/modules/Tool.pm b/modules/Tool.pm index dafa325..2f72d1a 100644 --- a/modules/Tool.pm +++ b/modules/Tool.pm @@ -40,14 +40,14 @@ use base qw(Exporter); encode_html equal_url file_name - is_archive in_array + is_archive is_disabled_command is_forbidden_file mode_string multi_string upper_path); - + my @archive_exts = ('.zip', '.tar', '.gz', '.tar.gz', '.tgz', '.bz2', '.tar.bz2', '.tbz', '.tbz2', @@ -308,12 +308,12 @@ sub in_array($$) sub is_archive($) { my $file = shift; - + foreach my $ext(@archive_exts) { return 1 if(lc(substr($file,length($file)-length($ext),length($ext))) eq lc($ext)); } - + return; } -- 2.34.1