[t/harness] only provide extra_properties when we use ::Archive

This unbreaks 'make $path_to_one_file.t'
rakudo · Sep 27, 2009 · a61b17f · a61b17f
1 parent 834929c
commit a61b17f
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/t/harness b/t/harness
@@ -60,10 +60,12 @@ my $tap_harness_class = 'TAP::Harness';
 $tap_harness_class .= '::Archive' if $archive;
 
 my $extra_properties;
-$extra_properties->{'Parrot Revision'} = $parrot_revision
-  if $parrot_revision;
-$extra_properties->{'Submitter'} = $ENV{SMOLDER_SUBMITTER}
-  if $ENV{SMOLDER_SUBMITTER};
+if ($archive) {
+    $extra_properties->{'Parrot Revision'} = $parrot_revision
+    if $parrot_revision;
+    $extra_properties->{'Submitter'} = $ENV{SMOLDER_SUBMITTER}
+    if $ENV{SMOLDER_SUBMITTER};
+}
 
 if (eval "require $tap_harness_class;") {
     my %harness_options = (