r57864 - in /trunk/libfile-fu-perl/debian: changelog patches/findknob.t-on-tmpfs.patch patches/series

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu May 13 20:48:57 2010
New Revision: 57864

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57864
Log:
add a patch to findknob.t, making it pass on filesystems that return
directories first (like tmpfs).
Closes: #573657. Thanks to Lucas Nussbaum and Tim Retout.

Added:
    trunk/libfile-fu-perl/debian/patches/findknob.t-on-tmpfs.patch
Modified:
    trunk/libfile-fu-perl/debian/changelog
    trunk/libfile-fu-perl/debian/patches/series

Modified: trunk/libfile-fu-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-fu-perl/debian/changelog?rev=57864&op=diff
==============================================================================
--- trunk/libfile-fu-perl/debian/changelog (original)
+++ trunk/libfile-fu-perl/debian/changelog Thu May 13 20:48:57 2010
@@ -1,3 +1,11 @@
+libfile-fu-perl (0.0.7-2) UNRELEASED; urgency=low
+
+  * add a patch to findknob.t, making it pass on filesystems that return
+    directories first (like tmpfs).
+    Closes: #573657. Thanks to Lucas Nussbaum and Tim Retout.
+
+ -- Damyan Ivanov <dmn at debian.org>  Thu, 13 May 2010 23:36:41 +0300
+
 libfile-fu-perl (0.0.7-1) unstable; urgency=low
 
   [ Jonathan Yu ]

Added: trunk/libfile-fu-perl/debian/patches/findknob.t-on-tmpfs.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-fu-perl/debian/patches/findknob.t-on-tmpfs.patch?rev=57864&op=file
==============================================================================
--- trunk/libfile-fu-perl/debian/patches/findknob.t-on-tmpfs.patch (added)
+++ trunk/libfile-fu-perl/debian/patches/findknob.t-on-tmpfs.patch Thu May 13 20:48:57 2010
@@ -1,0 +1,22 @@
+Description: Fix the test on tmpfs
+ On tmpfs, the directory is the first item in the list, causing all files to be
+ deleted, subsequentialy failing the test that the first item iis a file and is
+ found with find()
+Bug: https://rt.cpan.org/Ticket/Display.html?id=57472
+Bug-Debian: http://bugs.debian.org/573657
+Author: Damyan Ivanov <dmn at debian.org>
+Last-Update: 2010-05-13
+
+--- a/t/findknob.t
++++ b/t/findknob.t
+@@ -19,7 +19,9 @@ $foo->basename->symlink($topdir/'link');
+ 
+ # bah!
+ my $x = do {
+-  my @files = $topdir->list;
++  # for this test to succeed, $files[0] must not be foo/ (a directory)
++  # to achieve this, we sort the list
++  my @files = sort $topdir->list;
+   my ($i) = grep({$files[$_]->basename eq 'foo/'} 0..$#files);
+   $_->unlink for(@files[($i+1)..$#files]);
+   #warn join("|", $topdir->contents);

Modified: trunk/libfile-fu-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-fu-perl/debian/patches/series?rev=57864&op=diff
==============================================================================
--- trunk/libfile-fu-perl/debian/patches/series (original)
+++ trunk/libfile-fu-perl/debian/patches/series Thu May 13 20:48:57 2010
@@ -1,1 +1,2 @@
 spelling.patch
+findknob.t-on-tmpfs.patch