## make sure all length() and substr() calls use bytes only:
use bytes;
+my $uid = shift;
+
+# FIXME: fail if there is no given user ID.
+
# make an old-style packet out of the given packet type and body.
# old-style (see RFC 4880 section 4.2)
sub make_packet {
die "key does not check";
}
-my $uid = 'fake key (do not use) <test@example.org>';
-
-
-
my $version = pack('C', 4);
# strong assertion of identity:
my $sigtype = pack('C', 0x13);