From e2fd604da5cda3ce2e29cda4c5813996c135cf12 Mon Sep 17 00:00:00 2001
From: Romain d'Alverny <rda@mageia.org>
Date: Tue, 13 Dec 2011 15:57:09 +0000
Subject: glob list files in alphabetical order; glob_ does not

---
 test_iso.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test_iso.pl b/test_iso.pl
index 21a15f7..c9863ae 100644
--- a/test_iso.pl
+++ b/test_iso.pl
@@ -53,16 +53,16 @@ print "# Host\t\t: ", `uname -n`;
 
 my $aggregator = TAP::Parser::Aggregator->new;
 $aggregator->start;
-$harness->aggregate_tests($aggregator, glob_('t/*.t'));
+$harness->aggregate_tests($aggregator, glob('t/*.t'));
 
 my $name  = basename($image_path);
 my %info  = Tools::parse_mageia_iso_name($name);
 my @testfiles;
 
 if ($info{variant} =~ /^LiveCD/) {
-    @testfiles = glob_('t_live_iso/*.t');
+    @testfiles = glob('t_live_iso/*.t');
 } else {
-    @testfiles = glob_('t_install_iso/*.t');
+    @testfiles = glob('t_install_iso/*.t');
 }
 
 if (@testfiles) {
@@ -73,7 +73,7 @@ if (@testfiles) {
     $harness->aggregate_tests($aggregator, @testfiles);
 
     print "# Umounting ISO\n";
-    system 'umount -l /media/iso_check';
+    system('umount -l', '/media/iso_check');
     rmdir('/media/iso_check');
 }
 
-- 
cgit v1.2.1