tags 396379 + patch
thanks
Hi,
Attached is the diff for my libio-all-perl 0.33-3.1 NMU.
diff -Nru /tmp/erdC5ro5zo/libio-all-perl-0.33/debian/changelog
/tmp/W5EOy4mtJd/libio-all-perl-0.33/debian/changelog
--- /tmp/erdC5ro5zo/libio-all-perl-0.33/debian/changelog 2006-11-12
19:28:31.000000000 +0100
+++ /tmp/W5EOy4mtJd/libio-all-perl-0.33/debian/changelog 2006-11-12
19:28:31.000000000 +0100
@@ -1,3 +1,12 @@
+libio-all-perl (0.33-3.1) unstable; urgency=medium
+
+ * Non-maintainer upload.
+ * In t/synopsis2.t, sort the results from scanning the directories, as they
+ are not specified to come back in any given order. Fixes intermittent
+ FTBFS; patch backported from upstream. (Closes: #396379)
+
+ -- Steinar H. Gunderson <[EMAIL PROTECTED]> Sun, 12 Nov 2006 19:23:29 +0100
+
libio-all-perl (0.33-3) unstable; urgency=low
* Skip t/spiffy.t as it fails because of libspiffy-perl changed its
diff -Nru /tmp/erdC5ro5zo/libio-all-perl-0.33/t/synopsis2.t
/tmp/W5EOy4mtJd/libio-all-perl-0.33/t/synopsis2.t
--- /tmp/erdC5ro5zo/libio-all-perl-0.33/t/synopsis2.t 2004-11-30
08:30:41.000000000 +0100
+++ /tmp/W5EOy4mtJd/libio-all-perl-0.33/t/synopsis2.t 2006-11-12
19:28:31.000000000 +0100
@@ -8,16 +8,21 @@
# Print name and first line of all files in a directory
my $dir = io('t/mydir');
ok($dir->is_dir);
+my @results;
while (my $io = $dir->next) {
if ($io->is_file) {
- my $line = $io->name . ' - ' . $io->getline;
- is($line, flip_slash scalar <DATA>);
+ push @results, $io->name . ' - ' . $io->getline;
}
}
+for my $line (sort @results) {
+ is($line, flip_slash scalar <DATA>);
+}
+
# Print name of all files recursively
is("$_\n", flip_slash scalar <DATA>)
- for grep {! /CVS|\.svn/} io('t/mydir')->all_files(0);
+ for sort {$a->name cmp $b->name}
+ grep {! /CVS|\.svn/} io('t/mydir')->all_files(0);
__END__
t/mydir/file1 - file1 is fun
