nancy: slight simplification to find_on_path

Author: rrthomas

nancy.in

@@ -3,7 +3,7 @@ package main;
 
 my $version = <<'END';
 nancy @Version@
-(c) 2002-2020 Reuben Thomas <rrt@sc3d.org>
+(c) 2002-2021 Reuben Thomas <rrt@sc3d.org>
 https://github.com/rrthomas/nancy/
 Distributed under the GNU General Public License version 3, or (at
 your option) any later version. There is no warranty.
@@ -70,10 +70,6 @@ sub find_on_path {
   my ($path, $file, $root) = @_;
   my @file = splitdir($file);
   my @search = @{$path};
-  while ($file[0] eq "..") {
-    shift @file;
-    pop @search;
-  }
   for (;; pop @search) {
     my $thissearch = [@search, @file];
     my $obj = catfile($root, @{$thissearch});