[LDAPsh-cvs] ldapsh ldapsh,1.56,1.57

[<po...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28732

Modified Files:
	ldapsh 
Log Message:
tiny nobrainer to make !<command> not evaluate <command> as a perl expression after system()-ing it.

Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.56
retrieving revision 1.57
diff -C2 -d -r1.56 -r1.57
*** ldapsh	19 Mar 2004 12:24:10 -0000	1.56
--- ldapsh	3 Jun 2004 15:34:20 -0000	1.57
***************
*** 3336,3341 ****
  	if ($PSH_SUPPORT) {
  		Psh::_evl(eval {Psh::Parser::parse_line($_) }) if $_;
! 	}
! 	else {
  
  	s/^\s+//;
--- 3336,3340 ----
  	if ($PSH_SUPPORT) {
  		Psh::_evl(eval {Psh::Parser::parse_line($_) }) if $_;
! 	} else {
  
  	s/^\s+//;
***************
*** 3343,3347 ****
  	if (s/^!//) {
  		system($_);
! 		next;
  	}
  
--- 3342,3346 ----
  	if (s/^!//) {
  		system($_);
! 		goto NEXT;
  	}
  
***************
*** 3371,3374 ****
--- 3370,3374 ----
  	}
  
+     NEXT:
  	my $APP = $Globals->{_APPENDRESULTS}{VALUE} ? '** ' : '';
  	my $P = eval('return("' . $Globals->{PROMPT}{VALUE} . '")');