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};
# 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.