Commit 9645885d authored by Leigh B Stoller's avatar Leigh B Stoller

Do not post deleted versions with -a (all versions) option.

parent e93456d9
#!/usr/bin/perl -w
#
# Copyright (c) 2008-2016 University of Utah and the Flux Group.
# Copyright (c) 2008-2017 University of Utah and the Flux Group.
#
# {{{GENIPUBLIC-LICENSE
#
......@@ -186,6 +186,9 @@ if (@ARGV) {
next;
}
foreach my $tmp (@allversions) {
next
if (defined($tmp->deleted()));
if (PostImageInfo($tmp)) {
$errors++;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment