Work around File::Find order. (cpantesters.org/cpan/report/a5e531d0-c…

…328-11df-b760-aceb3ebc41c5)
sanko · Oct 26, 2010 · d4ea4e9 · d4ea4e9
1 parent fd3801a
commit d4ea4e9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/lib/Net/BitTorrent/Torrent/Generator.pm b/lib/Net/BitTorrent/Torrent/Generator.pm
@@ -30,7 +30,7 @@ package Net::BitTorrent::Torrent::Generator;
                                  },
                                  $s->_files
                 );
-                \@files;
+                [sort @files];
             },
             _count_files => sub { scalar @{shift->files} },
             total_size   => sub {

diff --git a/t/10000_by_class/Net/BitTorrent/Torrent/Generator.t b/t/10000_by_class/Net/BitTorrent/Torrent/Generator.t
@@ -44,7 +44,8 @@ package t::10000_by_class::Net::BitTorrent::Torrent::Generator;
             'comment is correct';
 
         sub _files {
-            ['./t/90000_data/96000_data/96020_miniswarm_seed/1291672777_30adc6a421_o.jpg',
+            [sort
+                 './t/90000_data/96000_data/96020_miniswarm_seed/1291672777_30adc6a421_o.jpg',
              './t/90000_data/96000_data/96020_miniswarm_seed/2183742557_5c9a91727d_m.jpg',
              './t/90000_data/96000_data/96020_miniswarm_seed/credit.txt'
             ];