x11-misc/shutter/files/shutter-0.90-goocanvas.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Index: shutter-0.90/bin/shutter
===================================================================
--- shutter-0.90.orig/bin/shutter
+++ shutter-0.90/bin/shutter
@@ -9407,12 +9407,7 @@ else {
             $nautilus_sendto = FALSE;
         }
 
-        #goocanvas
-        eval { require Goo::Canvas };
-        if ($@) {
-            warn "WARNING: Goo::Canvas/libgoo-canvas-perl is missing --> drawing tool will be disabled!\n\n";
-            $goocanvas = FALSE;
-        }
+        $goocanvas = FALSE;
 
         #net-dbus-glib-perl
         eval { require Net::DBus::GLib };