It's nicer to skip things instead of failing them while
trying to skip them...
- Barrie
--- perl-5.6.0-RC1/t/lib/filespec.t Fri Mar 10 13:43:30 2000
+++ File-Spec/t/lib/filespec.t Fri Mar 10 21:47:42 2000
@@ -370,7 +370,7 @@
if ( $@ ) {
if ( substr( $@, 0, length $skip_exception ) eq $skip_exception ) {
chomp $@ ;
- print "not ok $current_test # skip $function: $@\n" ;
+ print "ok $current_test # skip $function: $@\n" ;
}
else {
chomp $@ ;
