From 1126f094153ef943cc677d61889ef5c7e5168fcd Mon Sep 17 00:00:00 2001 From: fukachan Date: Sun, 21 Apr 2002 04:54:30 +0000 Subject: sort -n subdirs list --- fml/lib/FML/Command/HTMLify.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fml/lib/FML/Command/HTMLify.pm b/fml/lib/FML/Command/HTMLify.pm index c4d3b10c..77dd6031 100644 --- a/fml/lib/FML/Command/HTMLify.pm +++ b/fml/lib/FML/Command/HTMLify.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: HTMLify.pm,v 1.16 2002/04/08 12:44:24 fukachan Exp $ +# $FML: HTMLify.pm,v 1.1 2002/04/20 05:02:28 fukachan Exp $ # package FML::Command::HTMLify; @@ -54,7 +54,7 @@ sub convert } if ($is_subdir_exists) { - for my $xdir (@$subdirs) { + for my $xdir (sort {$a <=> $b} @$subdirs) { eval q{ use Mail::Message::ToHTML; &Mail::Message::ToHTML::htmlify_dir($xdir, { -- cgit v1.2.1