|
|
|
|
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
|
}
|