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
|
