Reuben Thomas wrote: > The following patch copes with a renamed module: It appears that it hasn't been renamed, but rather replaced, at least in Debian.
http://wiki.debian.org/Teams/DebianPerlGroup/OpenTasks/Transitions/DigestSHA1ToDigestSHA > From: Reuben Thomas <r...@sc3d.org> > Date: Tue, 20 Mar 2012 20:17:22 +0000 > Subject: [PATCH] announce-gen: make it work with Perl 5.14. ... > use Getopt::Long; > use Digest::MD5; > -use Digest::SHA1; > +if (!$^V or $^V lt v5.14.0) { > + require Digest::SHA1; > + Digest::SHA1->import(); > +} else { > + use Digest::SHA; > + Digest::SHA->import(); > +} How about this instead, since Digest::SHA is preferable, when it exists? (no need for ->import, afaics) eval { require Digest::SHA } or eval { require Digest::SHA1 }; Besides, we must not "use Digest::SHA;" when the module does not exist. Otherwise, something like this would happen, even when it is in an inactive "else" clause: $ perl -e 'if (0) { use FOO::BAR }' Can't locate FOO/BAR.pm in @INC (@... Please adjust your subject/log, too. It has always worked fine with Fedora's 5.14.x
