[Bast-commits] r3588 - in trunk/Net-LDAP-HTMLWidget: . lib/Net/LDAP t

[omega at dev.catalyst.perl.org]

Author: omega
Date: 2007-07-17 14:22:31 +0100 (Tue, 17 Jul 2007)
New Revision: 3588

Modified:
   trunk/Net-LDAP-HTMLWidget/
   trunk/Net-LDAP-HTMLWidget/lib/Net/LDAP/HTMLWidget.pm
   trunk/Net-LDAP-HTMLWidget/t/01use.t
Log:
 r15673 at andreas-marienborgs-computer:  andreas | 2007-07-17 14:42:44 +0200
 Fix tests



Property changes on: trunk/Net-LDAP-HTMLWidget
___________________________________________________________________
Name: svk:merge
   - ea49d7f7-7c45-40ca-be27-1349e20c1c07:/local/net-ldap-htmlwidget:15671
   + ea49d7f7-7c45-40ca-be27-1349e20c1c07:/local/net-ldap-htmlwidget:15673

Modified: trunk/Net-LDAP-HTMLWidget/lib/Net/LDAP/HTMLWidget.pm
===================================================================
--- trunk/Net-LDAP-HTMLWidget/lib/Net/LDAP/HTMLWidget.pm	2007-07-17 13:21:18 UTC (rev 3587)
+++ trunk/Net-LDAP-HTMLWidget/lib/Net/LDAP/HTMLWidget.pm	2007-07-17 13:22:31 UTC (rev 3588)
@@ -23,7 +23,7 @@
     $ldap = $self if (ref $self && ($self->isa('Net::LDAP') || $self->isa('Catalyst::Model::LDAP::Connection')));
     $ldap = $self->_ldap_client if (ref($self) and $self->isa('Catalyst::Model::LDAP::Entry') && $self->_ldap_client);
     
-    croak "No LDAP connection" unless $ldap;
+    croak("No LDAP connection") unless $ldap;
     
     foreach my $oc ( ref $entry->get_value('objectClass') 
         ? @{$entry->get_value('objectClass')} 

Modified: trunk/Net-LDAP-HTMLWidget/t/01use.t
===================================================================
--- trunk/Net-LDAP-HTMLWidget/t/01use.t	2007-07-17 13:21:18 UTC (rev 3587)
+++ trunk/Net-LDAP-HTMLWidget/t/01use.t	2007-07-17 13:22:31 UTC (rev 3588)
@@ -2,5 +2,5 @@
 use Test::More tests => 1;
 
 BEGIN {
-    use_ok 'DBIx::Class::HTMLWidget';
+    use_ok 'Net::LDAP::HTMLWidget';
 }