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
