diff options
author | Frederic Peters <fpeters@entrouvert.com> | 2007-04-04 08:16:59 +0000 |
---|---|---|
committer | Frederic Peters <fpeters@entrouvert.com> | 2007-04-04 08:16:59 +0000 |
commit | 154bd5062c2b05edf752bd9dc816b65189d941c8 (patch) | |
tree | 1addf8a55e93bcfdafa5ca3bcbebbf8aa7012318 | |
parent | 6b840b9bba62ab5f4f31dbab0f5d42fe6ee4c159 (diff) | |
download | lasso-154bd5062c2b05edf752bd9dc816b65189d941c8.tar.gz lasso-154bd5062c2b05edf752bd9dc816b65189d941c8.tar.xz lasso-154bd5062c2b05edf752bd9dc816b65189d941c8.zip |
fixed usage of constant strings in Perl binding
-rwxr-xr-x | perl/tests/binding_tests.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/tests/binding_tests.pl b/perl/tests/binding_tests.pl index 287f62ef..f5cb2420 100755 --- a/perl/tests/binding_tests.pl +++ b/perl/tests/binding_tests.pl @@ -238,8 +238,8 @@ sub test06 { $login->{request} eq undef or die "Assertion failed\n"; $login->{request} = new lasso::LibAuthnRequest; - $login->{request}->{consent} = lasso::LIB_CONSENT_OBTAINED; - $login->{request}->{consent} eq lasso::LIB_CONSENT_OBTAINED or die "Assertion failed\n"; + $login->{request}->{consent} = $lasso::LIB_CONSENT_OBTAINED; + $login->{request}->{consent} eq $lasso::LIB_CONSENT_OBTAINED or die "Assertion failed\n"; undef $login->{request}; $login->{request} eq undef or die "Assertion failed\n"; |