diff options
author | Marc Espie <espie@cvs.openbsd.org> | 2014-01-31 15:48:45 +0000 |
---|---|---|
committer | Marc Espie <espie@cvs.openbsd.org> | 2014-01-31 15:48:45 +0000 |
commit | 9811e660435f0dc79fd6c2ea9043d3cc376d05b9 (patch) | |
tree | ec4f898952b235e06c1fa7dbae8038ea67c8c536 /usr.sbin/pkg_add/OpenBSD/md5.pm | |
parent | eab9a7645c946f96c9980063a89a9935dd77b134 (diff) |
@md5 annotations died at the end of 2008, so it's reasonable to scrape the
code now.
Diffstat (limited to 'usr.sbin/pkg_add/OpenBSD/md5.pm')
-rw-r--r-- | usr.sbin/pkg_add/OpenBSD/md5.pm | 42 |
1 files changed, 1 insertions, 41 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/md5.pm b/usr.sbin/pkg_add/OpenBSD/md5.pm index 8d3405bc88c..3c9d1bc3e25 100644 --- a/usr.sbin/pkg_add/OpenBSD/md5.pm +++ b/usr.sbin/pkg_add/OpenBSD/md5.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: md5.pm,v 1.15 2011/06/27 12:14:25 espie Exp $ +# $OpenBSD: md5.pm,v 1.16 2014/01/31 15:48:44 espie Exp $ # # Copyright (c) 2003-2007 Marc Espie <espie@openbsd.org> # @@ -74,46 +74,6 @@ sub equals return ref($a) eq ref($b) && $$a eq $$b; } -package OpenBSD::md5; -our @ISA=(qw(OpenBSD::digest)); - -sub fromfile -{ - my $fname = shift; - return OpenBSD::md5->digest_file($fname); -} - -sub fromfh -{ - my $file = shift; - return OpenBSD::md5->digest_fh($file); -} - -sub algo -{ - my $self = shift; - require Digest::MD5; - - return Digest::MD5->new; -} - -sub stringize -{ - my $self = shift; - return unpack('H*', $$self); -} - -sub unstringize -{ - my ($class, $arg) = @_; - return pack('H*', $arg); -} - -sub keyword -{ - return "md5"; -} - package OpenBSD::sha; our @ISA=(qw(OpenBSD::digest)); |