X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/5ede518875b79d23f301b0fde64bc8e4c36d3f6c..3b69a56ae05c5a9f8de83528657cefd784c95a8f:/modules/Tool.pm 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; }