X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;f=perl-Tk%2Fpatches%2Fperl-Tk-widget.patch0;fp=perl-Tk%2Fpatches%2Fperl-Tk-widget.patch0;h=ec446586d3bcd096423f1df3331971d864c4df82;hb=f9cf289927abe4ac6433167e21ee1b02d3b73f29;hp=0000000000000000000000000000000000000000;hpb=5e5d8f51b6339455e2991cec0ea1b897de224a9e;p=ipfire-3.x.git

diff --git a/perl-Tk/patches/perl-Tk-widget.patch0 b/perl-Tk/patches/perl-Tk-widget.patch0
new file mode 100644
index 000000000..ec446586d
--- /dev/null
+++ b/perl-Tk/patches/perl-Tk-widget.patch0
@@ -0,0 +1,26 @@
+--- demos/widget.orig	2008-01-02 13:24:14.000000000 +0100
++++ demos/widget	2008-01-02 13:27:10.000000000 +0100
+@@ -3,7 +3,8 @@
+ use 5.008;
+ use Config;
+ use Tk 804.000;
+-use lib Tk->findINC( 'demos/widget_lib' );
++#use lib Tk->findINC( 'demos/widget_lib' );
++use lib "@demopath@/widget_lib";
+ use Tk::widgets qw/ DialogBox ErrorDialog LabEntry ROText /;
+ use Tk::Config ();
+ use WidgetDemo;
+@@ -62,9 +63,11 @@
+     $l->destroy;
+ }
+ 
+-my $widget_lib = Tk->findINC('demos/widget_lib');
++#my $widget_lib = Tk->findINC('demos/widget_lib');
++my $widget_lib = "@demopath@/widget_lib";
+ my $wd = "$widget_lib/WidgetDemo.pm";
+-$WIDTRIB = Tk->findINC('demos/widtrib');
++#$WIDTRIB = Tk->findINC('demos/widtrib');
++$WIDTRIB = "@demopath@/widtrib";
+ unless (Tk::tainting) {
+     $WIDTRIB = $ENV{WIDTRIB} if defined $ENV{WIDTRIB};
+     $WIDTRIB = $ARGV[0] if defined $ARGV[0];