perl-Tk/patches/perl-Tk-widget.patch0

   1 --- demos/widget.orig   2008-01-02 13:24:14.000000000 +0100
   2 +++ demos/widget        2008-01-02 13:27:10.000000000 +0100
   3 @@ -3,7 +3,8 @@
   4  use 5.008;
   5  use Config;
   6  use Tk 804.000;
   7 -use lib Tk->findINC( 'demos/widget_lib' );
   8 +#use lib Tk->findINC( 'demos/widget_lib' );
   9 +use lib "@demopath@/widget_lib";
  10  use Tk::widgets qw/ DialogBox ErrorDialog LabEntry ROText /;
  11  use Tk::Config ();
  12  use WidgetDemo;
  13 @@ -62,9 +63,11 @@
  14      $l->destroy;
  15  }
  16
  17 -my $widget_lib = Tk->findINC('demos/widget_lib');
  18 +#my $widget_lib = Tk->findINC('demos/widget_lib');
  19 +my $widget_lib = "@demopath@/widget_lib";
  20  my $wd = "$widget_lib/WidgetDemo.pm";
  21 -$WIDTRIB = Tk->findINC('demos/widtrib');
  22 +#$WIDTRIB = Tk->findINC('demos/widtrib');
  23 +$WIDTRIB = "@demopath@/widtrib";
  24  unless (Tk::tainting) {
  25      $WIDTRIB = $ENV{WIDTRIB} if defined $ENV{WIDTRIB};
  26      $WIDTRIB = $ARGV[0] if defined $ARGV[0];