Change 12076 by ams@ams-lustre on 2001/09/18 22:11:25
Subject: [PATCH] Re: [PATCH] t/op/crypt.t
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Tue, 18 Sep 2001 18:47:14 -0400
Message-Id: <20010918184714.I585@blackrider>
Affected files ...
... //depot/perl/t/op/crypt.t#3 edit
Differences ...
==== //depot/perl/t/op/crypt.t#3 (text) ====
Index: perl/t/op/crypt.t
--- perl/t/op/crypt.t.~1~ Tue Sep 18 16:15:05 2001
+++ perl/t/op/crypt.t Tue Sep 18 16:15:05 2001
@@ -1,6 +1,23 @@
-use Test::More tests => 2;
+#!./perl -Tw
+
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = ('../lib');
+}
+
use Config;
+BEGIN {
+ require Test::More;
+
+ if( !$Config{d_crypt} ) {
+ Test::More->import('skip_all');
+ }
+ else {
+ Test::More->import(tests => 2);
+ }
+}
+
# Can't assume too much about the string returned by crypt(),
# and about how many bytes of the encrypted (really, hashed)
# string matter.
End of Patch.
