path for either images or demo pm files are no more explicit

to avoid any use of empty directory (due for example to a previous
un-installed package and which lets an empty directory behind)

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];