Oracle PERL DBD - [svn:dbd-oracle] rev 508

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

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

jurl@cvs.perl.org

2005-06-03, 8:27 pm

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) {

Sponsored Links