diff options
Diffstat (limited to 'pl/editor.pl')
-rw-r--r-- | pl/editor.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/pl/editor.pl b/pl/editor.pl new file mode 100644 index 0000000..4c59cc4 --- /dev/null +++ b/pl/editor.pl @@ -0,0 +1,23 @@ +;# $Id$ +;# +;# Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi +;# +;# You may redistribute only under the terms of the Artistic Licence, +;# as specified in the README file that comes with the distribution. +;# You may reuse parts of this distribution only within the terms of +;# that same Artistic Licence; a copy of which may be found at the root +;# of the source tree for dist 4.0. +;# +;# $Log: editor.pl,v $ +;# Revision 3.0.1.1 1993/08/25 14:08:07 ram +;# patch6: created +;# +# Compute suitable editor name +sub geteditor { + local($editor) = $ENV{'VISUAL'}; + $editor = $ENV{'EDITOR'} unless $editor; + $editor = $defeditor unless $editor; + $editor = 'vi' unless $editor; + $editor; +} + |