Return-Path: Delivered-To: apmail-httpd-test-cvs-archive@httpd.apache.org Received: (qmail 86721 invoked by uid 500); 6 Jan 2002 18:20:18 -0000 Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm Precedence: bulk Reply-To: test-dev@httpd.apache.org list-help: list-unsubscribe: list-post: Delivered-To: mailing list test-cvs@httpd.apache.org Received: (qmail 86710 invoked from network); 6 Jan 2002 18:20:17 -0000 Date: 6 Jan 2002 18:20:17 -0000 Message-ID: <20020106182017.36772.qmail@icarus.apache.org> From: dougm@apache.org To: httpd-test-cvs@apache.org Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestSmoke.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N dougm 02/01/06 10:20:17 Modified: perl-framework/Apache-Test/lib/Apache TestSmoke.pm Log: Digest::MD5 is not shipped with 5.6.1 workaround for the moment by waiting till runtime to require it. Revision Changes Path 1.8 +1 -1 httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm Index: TestSmoke.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -u -r1.7 -r1.8 --- TestSmoke.pm 4 Jan 2002 04:32:47 -0000 1.7 +++ TestSmoke.pm 6 Jan 2002 18:20:17 -0000 1.8 @@ -8,7 +8,6 @@ use Getopt::Long qw(GetOptions); use File::Spec::Functions qw(catfile); -use Digest::MD5 (); use POSIX (); use FindBin; @@ -264,6 +263,7 @@ sub sequence_seen { my ($self, $rh_store, $ra_tests) = @_; + require Digest::MD5; my $digest = Digest::MD5::md5_hex(join '', @$ra_tests); #error $self->{seen}; return $rh_store->{$digest}++ ? 1 : 0