diff options
author | Assaf Gordon <assafgordon@gmail.com> | 2014-07-09 19:18:40 -0400 |
---|---|---|
committer | Pádraig Brady <P@draigBrady.com> | 2014-07-10 20:16:43 +0100 |
commit | 648f4ae7311d1ad00658fc314e1a6c896f47e618 (patch) | |
tree | 718215fe49718a41f0bc16d5ac989a65b6954cd2 /build-aux/announce-gen | |
parent | cfd8172b77120cb7002907af99e33af882097fc6 (diff) | |
download | gnulib-648f4ae7311d1ad00658fc314e1a6c896f47e618.tar.gz |
announce-gen: avoid perl warnings
* build-aux/announce-gen: add two minor checks to avoid
"use of uninitialized value" warnings when command-line parameters are
missing.
Diffstat (limited to 'build-aux/announce-gen')
-rwxr-xr-x | build-aux/announce-gen | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/build-aux/announce-gen b/build-aux/announce-gen index db9ed50a78..a3aebf7622 100755 --- a/build-aux/announce-gen +++ b/build-aux/announce-gen @@ -416,14 +416,15 @@ sub get_tool_versions ($$) @url_dir_list or (warn "URL directory name(s) not specified\n"), $fail = 1; - my @tool_list = split ',', $bootstrap_tools; + my @tool_list = split ',', $bootstrap_tools + if $bootstrap_tools; grep (/^gnulib$/, @tool_list) ^ defined $gnulib_version and (warn "when specifying gnulib as a tool, you must also specify\n" . "--gnulib-version=V, where V is the result of running git describe\n" . "in the gnulib source directory.\n"), $fail = 1; - exists $valid_release_types{$release_type} + !$release_type || exists $valid_release_types{$release_type} or (warn "'$release_type': invalid release type\n"), $fail = 1; @ARGV |