Просмотр исходного кода

Do not edit the file by default

This also means -E is useless
Alois Mahdal 10 лет назад
Родитель
Сommit
6f2b660b7f
1 измененных файлов: 1 добавлений и 2 удалений
  1. 1
    2
      bin/mkexec

+ 1
- 2
bin/mkexec Просмотреть файл

18
 ## '''' ##   ' ' '  '   '    '     '      '       '        '         '
18
 ## '''' ##   ' ' '  '   '    '     '      '       '        '         '
19
 
19
 
20
 my $force = $DEFAULT_FORCE;
20
 my $force = $DEFAULT_FORCE;
21
+my $edit = $DEFAULT_EDIT;
21
 my $name; my $type; my $purpose; my $edit;
22
 my $name; my $type; my $purpose; my $edit;
22
 
23
 
23
 foreach (@ARGV) {
24
 foreach (@ARGV) {
25
         $force++;
26
         $force++;
26
     } elsif (m/-e|--edit/) {
27
     } elsif (m/-e|--edit/) {
27
         $edit++;
28
         $edit++;
28
-    } elsif (m/-E|--no-edit/) {
29
-        $edit = 0;
30
     } elsif (defined $type) {
29
     } elsif (defined $type) {
31
         $purpose = $_;
30
         $purpose = $_;
32
     } elsif (defined $name) {
31
     } elsif (defined $name) {