Sign in
apache
/
spamassassin
/
4c3a613fcf25b060f932046ae8e0f1cb6e4149b1
/
.
/
build
/
sha1sum.pl
blob: 555c26f77187e350f56be647c1d3791a1067e5ff [
file
] [
log
] [
blame
]
#!/usr/bin/perl
BEGIN
{
eval
{
require
Digest
::
SHA
;
import
Digest
::
SHA qw
(
sha1_hex
);
1
}
or
do
{
require
Digest
::
SHA1
;
import
Digest
::
SHA1 qw
(
sha1_hex
)
}
}
$
/=
undef
;
while
(<>)
{
print
sha1_hex
(
$_
),
" $ARGV\n"
;
}