Remove temporary scaffolding
authorJacob Bachmeyer <jcb@gnu.org>
Sat, 29 Oct 2022 03:06:24 +0000 (22:06 -0500)
committerJacob Bachmeyer <jcb@gnu.org>
Sat, 29 Oct 2022 03:06:24 +0000 (22:06 -0500)
gatekeeper.pl

index 708f3b40cf7720ef0f81b5864584f871171d31e0..6ac1abc2d43942b2f82e6071bc5f53f79839f6e7 100755 (executable)
@@ -1899,9 +1899,6 @@ sub validate_commands {
   my $stem = substr $packet->[0],0,-(length '.directive.asc');
   my $op_header = $ops->[0][1];
 
-  # scaffolding to be removed later
-  my $directive_only = (1 == scalar @$packet);
-
   # They have to specify a version
   fatal("no version directive specified in $stem.directive.asc",1)
     unless defined $op_header->{version};
@@ -1920,7 +1917,7 @@ sub validate_commands {
 
   # Check that we actually have at least one command in the directive
   unless ($#$ops > 0) {
-    if ($directive_only) {
+    if (1 == scalar @$packet) {
       fatal("nothing to do - no commands in directive file",1);
     } else {
       # Provide a different message if this looks like an upload packet.