Update of /cvsroot/fink/fink/perlmod/Fink/Checksum
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31006/Checksum
Modified Files:
SHA1.pm SHA256.pm
Log Message:
Prevent runtime warnings when sha* commands aren't present.
Index: SHA1.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Checksum/SHA1.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- SHA1.pm 17 Oct 2005 16:12:23 -0000 1.1
+++ SHA1.pm 20 Oct 2005 02:08:14 -0000 1.2
@@ -52,7 +52,7 @@
$sha1cmd = "$basepath/bin/sha1sum";
}
- if (not -x $sha1cmd) {
+ if (!defined $sha1cmd or not -x $sha1cmd) {
eval "require Digest::SHA1";
if (defined $Digest::SHA1::VERSION) {
$sha1pm = 1;
Index: SHA256.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Checksum/SHA256.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- SHA256.pm 17 Oct 2005 16:12:23 -0000 1.1
+++ SHA256.pm 20 Oct 2005 02:08:14 -0000 1.2
@@ -49,7 +49,7 @@
$sha256cmd = "$basepath/bin/sha256deep";
}
- if (not -x $sha256cmd) {
+ if (!defined $sha256cmd or not -x $sha256cmd) {
die "unable to find sha256 implementation\n";
}
-------------------------------------------------------
This SF.Net email is sponsored by:
Power Architecture Resource Center: Free content, downloads, discussions,
and more. http://solutions.newsforge.com/ibmarch.tmpl
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits
