BEGIN {
chdir 't' if -d 't';
- @INC = qw(. ../lib);
-}
-
-BEGIN {
- use Config;
-
require "./test.pl";
+ set_up_inc( qw(. ../lib) );
+ use Config;
+}
- if( !$Config{d_crypt} ) {
- skip_all("crypt unimplemented");
- }
- else {
- plan(tests => 6);
- }
+if ( !$Config{d_crypt} ) {
+ skip_all("crypt unimplemented");
}
+else {
+ plan(tests => 6);
+}
+
# Can't assume too much about the string returned by crypt(),
# and about how many bytes of the encrypted (really, hashed)