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} ? '** ' : '';
|
