Upgrade libnet from version 3.07 to 3.08

[perl5.git] / Porting / GitUtils.pm

diff --git a/Porting/GitUtils.pm b/Porting/GitUtils.pm
old mode 100755 (executable)
new mode 100644 (file)
index 7abfe91..f1b4354
--- a/Porting/GitUtils.pm
+++ b/Porting/GitUtils.pm
@@ -45,7 +45,7 @@ sub gen_dot_patch {
         last if $branch ne 'undefined';
     }
     for ($branch) {
-        $_  ||= "error";            # hmm, we didnt get /anything/ from name-rev?
+        $_  ||= "error";            # hmm, we did not get /anything/ from name-rev?
         s!^\Q$reftype\E/!! ||       # strip off the reftype
         s!^refs/heads/!!   ||       # possible other places it was found
         s!^refs/remotes/!! ||       # ...
@@ -53,7 +53,7 @@ sub gen_dot_patch {
         s![~^].*\z!!;               # strip off how far we are from the item
     }
     my $tstamp= iso_time_with_dot(`git log -1 --pretty="format:%ct" $sha1`);
-    chomp(my $describe= `git describe`);
+    chomp(my $describe= `git describe $sha1`);
     join(" ", $branch, $tstamp, $sha1, $describe);
 }