e

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 my @filelist = split /\n/, `editfind @ARGV`
   5     or exit 1;
   6
   7 my $should_background = defined $ENV{DISPLAY} && $ENV{EDITOR} !~ m!/vim|^vim$!;
   8
   9 if ( !$should_background || !fork ) {
  10     exec $ENV{EDITOR}, @filelist;
  11 }