r106 - trunk/patches

[Ludovic Rousseau]

Author: rousseau
Date: 2006-11-21 21:56:19 +0100 (Tue, 21 Nov 2006)
New Revision: 106

Added:
   trunk/patches/14_bins-edit-gui.dpatch
Log:
Closes: #386423 "bins: Can't locate Gtk/GladeXML.pm"


Added: trunk/patches/14_bins-edit-gui.dpatch
===================================================================
--- trunk/patches/14_bins-edit-gui.dpatch	2006-06-15 20:12:51 UTC (rev 105)
+++ trunk/patches/14_bins-edit-gui.dpatch	2006-11-21 20:56:19 UTC (rev 106)
@@ -0,0 +1,46 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 14_bins-edit-gui.dpatch by  <rousseau at macbox.maison.bogus>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: No description.
+
+ at DPATCH@
+diff -urNad bins-1.1.29~/bins-edit-gui bins-1.1.29/bins-edit-gui
+--- bins-1.1.29~/bins-edit-gui	2006-11-21 21:48:51.000000000 +0100
++++ bins-1.1.29/bins-edit-gui	2006-11-21 21:55:28.000000000 +0100
+@@ -38,8 +38,33 @@
+ 
+ use Getopt::Long;
+ 
+-use Gtk;
+-use Gtk::GladeXML;
++BEGIN {
++	unless (eval "use Gtk; 1;") {
++		push @p, "libgtk-perl";
++		$fail=1
++	}
++
++	unless (eval "use Gtk::GladeXML; 1;") {
++		push @p, "libgladexml-perl";
++		$fail=1
++	}
++
++	unless (eval "use Gtk::Gdk::ImlibImage; 1;") {
++		push @p, "libgtk-imlib-perl";
++		$fail=1
++	}
++
++	unless (eval "use Gnome; 1;") {
++		push @p, "libgnome-perl";
++		$fail=1
++	}
++
++	if ($fail)
++	{
++		print "You need to install the Debian package(s): ", join(", ", @p), "\n";
++		exit;
++	}
++}
+ 
+ use XML::DOM;
+ use XML::XQL;


Property changes on: trunk/patches/14_bins-edit-gui.dpatch
___________________________________________________________________
Name: svn:executable
   + *