dougm 01/10/17 12:22:38
Modified: perl-framework/Apache-Test/lib/Apache Test5005compat.pm
Log:
require $File::Spec::VERSION >= 0.82
Revision Changes Path
1.2 +5 -0
httpd-test/perl-framework/Apache-Test/lib/Apache/Test5005compat.pm
Index: Test5005compat.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/Test5005compat.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Test5005compat.pm 2001/10/16 20:30:57 1.1
+++ Test5005compat.pm 2001/10/17 19:22:38 1.2
@@ -19,6 +19,11 @@
eval { require File::Spec::Functions; } or
die "this is only Perl $], you need to install File-Spec from CPAN";
+ my $min_version = 0.82;
+ unless ($File::Spec::VERSION >= $min_version) {
+ die "you need to install File-Spec-$min_version or higher from CPAN";
+ }
+
while (my($file, $sub) = each %compat_files) {
$sub->($file);
}
