Ver código fonte

Avoid useless warning if purpose was not provided

Alois Mahdal 10 anos atrás
pai
commit
1cf703e750
1 arquivos alterados com 2 adições e 1 exclusões
  1. 2
    1
      bin/mkexec

+ 2
- 1
bin/mkexec Ver arquivo

70
 $cmds->{editor}->{test} = "editor --version 2>/dev/null";
70
 $cmds->{editor}->{test} = "editor --version 2>/dev/null";
71
 $cmds->{editor}->{run}  = "editor '%s'";
71
 $cmds->{editor}->{run}  = "editor '%s'";
72
 
72
 
73
-unless (exists $templates->{$type}->{$purpose}) {
73
+unless ($purpose eq ""
74
+        or exists $templates->{$type}->{$purpose}) {
74
     warn "undefined purpose '$purpose' for type '$type'\n";
75
     warn "undefined purpose '$purpose' for type '$type'\n";
75
     $purpose = "";
76
     $purpose = "";
76
 }
77
 }