[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP LDIF.pm,1.18,1.19 LDIF.pod,1.5,1.6

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory usw-pr-cvs1:/tmp/cvs-serv19713/lib/Net/LDAP

Modified Files:
	LDIF.pm LDIF.pod 
Log Message:
Allow the file passed to new to be a pipe to/from a sub-process


Index: LDIF.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- LDIF.pm	24 Oct 2002 12:49:24 -0000	1.18
+++ LDIF.pm	24 Oct 2002 13:04:45 -0000	1.19
@@ -36,7 +36,9 @@
     else {
       require Symbol;
       $fh = Symbol::gensym();
-      my $open = ($mode{$mode} || "<") . $file;
+      my $open = $file =~ /^\| | \|$/x
+	? $file
+	: (($mode{$mode} || "<") . $file);
       open($fh,$open) or return;
       $opened_fh = 1;
     }

Index: LDIF.pod
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pod,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- LDIF.pod	24 Aug 2001 19:31:14 -0000	1.5
+++ LDIF.pod	24 Oct 2002 13:04:45 -0000	1.6
@@ -36,7 +36,8 @@
 =item new ( [ FILE [, MODE [,OPTIONS ]]] )
 
 FILE may be the name of a file or an already open filehandle. If a filename
-is passed in then it will be opened with the mode specified.
+is passed in then it will be opened with the mode specified. If FILE begins
+or ends with a C<|> then FILE will be passed directly to C<open>
 
 MODE defaults to "r" for read. You may specify "w" to for write+truncate or
 "a" for write+append.