[LDAPsh-cvs] ldapsh ldapsh,1.24,1.25

[<rco...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv12864

Modified Files:
	ldapsh 
Log Message:
Fixed a (little) bug I introduced on temporary redirection.

Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** ldapsh	19 Sep 2003 13:05:52 -0000	1.24
--- ldapsh	19 Sep 2003 13:20:23 -0000	1.25
***************
*** 2456,2475 ****
  
  
! 	# Create a context so $previous is deallocated after used, so the temporary
! 	# filehadle is closed
! 	{
! 		# This will chech for "<ldapsh command> ;| <sheel command>" usage
! 		# If so, we do a temporary output redirection
! 		my $previous;
! 		if (s/;\s*([|>][\s\w\d_\/.-]+)//) {
! 			$previous = redir($1);
! 		}
  
! 		eval() || print STDERR $@;
  
! 		# If we temporary redirected the output, come back and close the
! 		# temporary filehandle
! 		$Output = $previous if ($previous);
! 	}
  
  	my $APP = $Globals->{_APPENDRESULTS}{VALUE} ? '** ' : '';
--- 2456,2472 ----
  
  
! 	# This will chech for "<ldapsh command> ;| <sheel command>" usage
! 	# If so, we do a temporary output redirection
! 	my $previous;
! 	if (s/;\s*([|>][\s\w\d_\/.-]+)//) {
! 		$previous = redir($1);
! 	}
  
! 	eval() || print STDERR $@;
  
! 	# If we temporary redirected the output, come back and close the
! 	# temporary filehandle
! 	$Output = $previous if ($previous);
! 	
  
  	my $APP = $Globals->{_APPENDRESULTS}{VALUE} ? '** ' : '';