gitweb: fix 'Use of uninitialized value' error in href()

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 5b78db5709e4eda8d794ffcc937216a2745476167013545774c23a88ed785a31..e5ca381b20c3231c967f757157a9c9dcd8facdb4d1baa2e93d968ba6bb4d1da3 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -941,10 +941,13 @@ sub href {
                        if (defined $params{'hash_parent_base'}) {
                                $href .= esc_url($params{'hash_parent_base'});
                                # skip the file_parent if it's the same as the file_name
-                               delete $params{'file_parent'} if $params{'file_parent'} eq $params{'file_name'};
-                               if (defined $params{'file_parent'} && $params{'file_parent'} !~ /\.\./) {
-                                       $href .= ":/".esc_url($params{'file_parent'});
-                                       delete $params{'file_parent'};
+                               if (defined $params{'file_parent'}) {
+                                       if (defined $params{'file_name'} && $params{'file_parent'} eq $params{'file_name'}) {
+                                               delete $params{'file_parent'};
+                                       } elsif ($params{'file_parent'} !~ /\.\./) {
+                                               $href .= ":/".esc_url($params{'file_parent'});
+                                               delete $params{'file_parent'};
+                                       }
                                }
                                $href .= "..";
                                delete $params{'hash_parent'};