Select Code to Download

package Samba::LDAP;

...
}

1;

use strict;
use warnings;
...

my @shares = $smbconf->listShares();
print "@shares\n";

[ghenry@perlbox lib]$ perl ../scripts/test.pl
/etc/samba/smb.conf
smb.conf
Not a HASH reference at /usr/lib/perl5/site_perl/5.8.6/File/Samba.pm l
+ine 181.