Bug#544894: libtk-filedialog-perl: Unusable in Lenny

[Ansgar Burchardt <ansgar@43-1.org>]

clone 544894 -1
reassign -1 release.debian.org
retitle  -1 pu: libtk-filedialog-perl/1.3-2+lenny1
severity -1 normal
reopen   -1
tags     -1 =
notforwarded -1
user     release.debian.org@packages.debian.org
usertag  -1 + pu
thanks

Hi,

libtk-filedialog-perl is unusable in Lenny [1]: even the example dies in
the constructor.  There is a simple one-line patch from CPAN [2] that
has already been applied in unstable for some while.

I prepared an update for Lenny as well (see attached patch).  Is the
release team okay with uploading this to stable?

Regards,
Ansgar

[1] <http://bugs.debian.org/544894>
[2] <http://rt.cpan.org/Public/Bug/Display.html?id=12726>

diff -u libtk-filedialog-perl-1.3/FileDialog.pm libtk-filedialog-perl-1.3/FileDialog.pm
--- libtk-filedialog-perl-1.3/FileDialog.pm
+++ libtk-filedialog-perl-1.3/FileDialog.pm
@@ -467,7 +467,7 @@
 	    $FDialog->{'Can'}->invoke;
 	}
     });
-    $FDialog->transient($FDialog->toplevel);
+    $FDialog->transient($FDialog->parent->toplevel);
 
     foreach (@TabOrder) {
 	$FDialog->{'TabSel'}->{$_} = 1;
diff -u libtk-filedialog-perl-1.3/debian/changelog libtk-filedialog-perl-1.3/debian/changelog
--- libtk-filedialog-perl-1.3/debian/changelog
+++ libtk-filedialog-perl-1.3/debian/changelog
@@ -1,3 +1,10 @@
+libtk-filedialog-perl (1.3-2+lenny1) UNRELEASED; urgency=low
+
+  * Patch to fix error about making ".filedialog" its own master.
+    (Closes: #544894)
+
+ -- Ansgar Burchardt <ansgar@43-1.org>  Thu, 05 Aug 2010 13:07:38 +0900
+
 libtk-filedialog-perl (1.3-2) unstable; urgency=low
 
   * Adds debian/watch so uscan will actually work