[svn:dbd-oracle] rev 508 - dbd-oracle/trunk/t

Author: jurl
Date: Thu Oct 21 09:00:50 2004
New Revision: 508

Modified:
dbd-oracle/trunk/t/60reauth.t
Log:
Patched to strip off @xxxx before submitting to reauth in userid_2


Modified: dbd-oracle/trunk/t/60reauth.t
 ====================
 ====================
 ====================
================
==
--- dbd-oracle/trunk/t/60reauth.t	(original)
+++ dbd-oracle/trunk/t/60reauth.t	Thu Oct 21 09:00:50 2004
@@ -22,8 +22,10 @@
sub give_up { warn @_ if @_; print "1..0\n"; exit 0; }

if ($dbuser_2 eq '') {
-    give_up("ORACLE_USERID_2 not defined.\nTests skipped.\n");
+    give_up("ORACLE_USERID_2 not defined.  Tests skipped.\n");
}
+# strip off @ on userid_2, as the reauth presumes current server
+$dbuser_2 =~ s/@.*//;
(my $uid1 = uc $dbuser) =~ s:/.*::;
(my $uid2 = uc $dbuser_2) =~ s:/.*::;
if ($uid1 eq $uid2) {