problems with Net::LDAP::LDIF module

[Rolandas Naujikas]

I'm using FreeBSD 4.9 and latest p5-perl-ldap module version (0.32.02)
from ports. My script doesn't start because of compilation problem:

Too many arguments for open at /usr/local/lib/perl5/site_perl/5.005/Net/LDAP/LDIF.pm 
line 123, near "$url)"
BEGIN failed--compilation aborted at ./csv_add_ldif line 32, <DATA> chunk 225.

The fix is
---------------------------------------------------------------
--- LDIF.pm.orig        Mon Jul 19 21:18:24 2004
+++ LDIF.pm     Sat Aug 21 15:02:12 2004
@@ -120,7 +120,7 @@
 
   if ($url =~ s/^file:(?:\/\/)?//) {
     my $fh = $self->{_attr_fh};
-    unless (open($fh, '<', $url)) {
+    unless (open($fh, '<'.$url)) {
       $self->_error("can't open $line: $!", @ldif);
       return;
     }
---------------------------------------------------------------

My perl version is 5.005_03 standard on FreeBSD 4.x.

Rolandas Naujikas