[LDAPsh-cvs] ldapsh ldapsh,1.27,1.28

[<j-d...@us...>]

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

Modified Files:
	ldapsh 
Log Message:
Spelling corrections.
Added 'sink' as a synonym for 'redir'.
Added 'nosink' as a synonym for 'noredir'.


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** ldapsh	27 Sep 2003 09:01:04 -0000	1.27
--- ldapsh	6 Nov 2003 03:20:29 -0000	1.28
***************
*** 1179,1183 ****
  =head3 loadrc
  
! B<Synopsys>: C<loadrc [E<lt>fileE<gt>]>
  
  Load and "run" the Perl file E<lt>fileE<gt> using the C<do> Perl function. If no filename is given, B<ldapsh> tries to load C<~/.ldapshrc>.
--- 1179,1183 ----
  =head3 loadrc
  
! B<Synopsis>: C<loadrc [E<lt>fileE<gt>]>
  
  Load and "run" the Perl file E<lt>fileE<gt> using the C<do> Perl function. If no filename is given, B<ldapsh> tries to load C<~/.ldapshrc>.
***************
*** 1201,1205 ****
  =head3 source
  
! B<Synopsys>: C<source E<lt>fileE<gt>>
  
  A synonym for C<loadrc E<lt>fileE<gt>>.
--- 1201,1205 ----
  =head3 source
  
! B<Synopsis>: C<source E<lt>fileE<gt>>
  
  A synonym for C<loadrc E<lt>fileE<gt>>.
***************
*** 1746,1749 ****
--- 1746,1762 ----
  
  
+ =head3 sink
+ 
+ B<Synopsis>: C<sink ['E<lt>specE<gt>']>
+ 
+ A synonym for C<redir ['E<lt>specE<gt>']>.
+ 
+ =cut
+ 
+ sub sink($) {
+ 	redir(shift);
+ }
+ 
+ 
  =head3 noredir
  
***************
*** 1762,1765 ****
--- 1775,1791 ----
  	return $previous;
  }
+ 
+ =head3 nosink
+ 
+ B<Synopsis>: C<nosink>
+ 
+ A synonym for C<noredir]>.
+ 
+ =cut
+ 
+ sub nosink {
+ 	noredir;
+ }
+ 
  
  =head2 Changing entries