From 867506b457402f2e4510ccd3ef50154b6e28b489 Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Tue, 9 Jun 2009 13:22:41 -0400
Subject: [PATCH] added comments to keytrans

---
 src/share/keytrans | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/share/keytrans b/src/share/keytrans
index 3638eae..326bfb1 100755
--- a/src/share/keytrans
+++ b/src/share/keytrans
@@ -627,6 +627,7 @@ sub openpgp2ssh {
       die "This is not an OpenPGP packet\n";
     }
     if (0x40 & $packettag) {
+      # this is a new-format packet.
       $tag = (0x3f & $packettag);
       my $nextlen = 0;
       read($instr, $nextlen, 1);
@@ -645,6 +646,7 @@ sub openpgp2ssh {
 	# packet length is undefined.
       }
     } else {
+      # this is an old-format packet.
       my $lentype;
       $lentype = 0x03 & $packettag;
       $tag = ( 0x3c & $packettag ) >> 2;
@@ -776,7 +778,6 @@ for (basename($0)) {
     # FIXME: fail if there is no given user ID; or should we default to
     # hostname_long() from Sys::Hostname::Long ?
 
-
     if (defined $ENV{PEM2OPENPGP_NEWKEY}) {
       $rsa = Crypt::OpenSSL::RSA->generate_key($ENV{PEM2OPENPGP_NEWKEY});
     } else {
-- 
2.25.1