diff --git a/scripts/Chessa/URI/Plugin/Default.pm b/scripts/Chessa/URI/Plugin/Default.pm index 7f35f0e30b2fb4f5201949581c95ee7d7e808bb3..01d199b6a546d7e8caa7aaf920158584fbd41483 100644 --- a/scripts/Chessa/URI/Plugin/Default.pm +++ b/scripts/Chessa/URI/Plugin/Default.pm @@ -13,9 +13,6 @@ use Encode qw(encode); use XML::XPath; use constant { - SZ_KILOBYTE => 1024, - SZ_MEGABYTE => 1024 ** 2, - SZ_GIGABYTE => 1024 ** 3, name => 'Default', }; @@ -108,7 +105,7 @@ sub head { }, ); } else { - return if (!defined($size) || (($size < SZ_MEGABYTE) && ($type =~ m!^image/!))); + return if (!defined($size) || ($size < (10 * (1024 **2 )))); $on_info->( $self->{msg}('Type', $type) . ' ' . $self->{msg}('Size', $self->humanize($size)) . @@ -117,11 +114,6 @@ sub head { } } -my @scale = ( - [SZ_GIGABYTE, 'GB'], - [SZ_MEGABYTE, 'MB'], - [SZ_KILOBYTE, 'kB'], -); my @units = split //, 'kMGTPEZY'; sub humanize {