diff options
Diffstat (limited to 'Perl/demos/zinc-demos')
| -rw-r--r-- | Perl/demos/zinc-demos | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos index dcb7604..995b178 100644 --- a/Perl/demos/zinc-demos +++ b/Perl/demos/zinc-demos @@ -51,9 +51,10 @@ my $widget_lib = Tk->findINC('demos/widget_lib'); # found in some cases such old directory empty (e.g. after a previous package de-installation) # So now, we look for a non-empty demos/zinc_lib directory (ie containing one of the demo!) my $zinc_lib = Tk->findINC('demos/zinc_lib/tiger.pl'); -($zinc_lib) = $zinc_lib =~ /(.*)\//; +($zinc_lib) = $zinc_lib =~ /(.*)\/tiger\.pl/; my $wd = "$widget_lib/WidgetDemo.pm"; -$WIDTRIB = Tk->findINC('demos/zinc_contrib_lib'); +$WIDTRIB = Tk->findINC('demos/zinc_contrib_lib/README'); +($WIDTRIB) = $WIDTRIB =~ /(.*)\/README/; unless (Tk::tainting) { $WIDTRIB = $ENV{WIDTRIB} if defined $ENV{WIDTRIB}; $WIDTRIB = $ARGV[0] if defined $ARGV[0]; |