From 13a5e426f36a81d834fc5d7d0fe53db7a9d4909e Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Thu, 30 Jan 1997 03:27:35 +0000
Subject: Remove common_option_prefix flag. (test_vector): Prepend the common
 option here instead.

---
 tests/pr/Test.pm | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

(limited to 'tests/pr/Test.pm')

diff --git a/tests/pr/Test.pm b/tests/pr/Test.pm
index 6fee57846..76bceac3b 100644
--- a/tests/pr/Test.pm
+++ b/tests/pr/Test.pm
@@ -3,8 +3,6 @@ package Test;
 require 5.002;
 use strict;
 
-$Test::common_option_prefix = '--test -h x ';
-
 my @tv = (
 
 # -b option is no longer an official option. But it's still working to
@@ -265,10 +263,25 @@ my @tv = (
 ['12md', '-o3 -j -m -l17 -f', [\'tFFt-lm', \'loli'], [\'o3jml17f-lm-lo'], 0],
 
 );
+#']]);
 
 sub test_vector
 {
-  return @tv;
+  my $common_option_prefix = '--test -h x';
+
+  my @new_tv;
+  my $t;
+  foreach $t (@tv)
+    {
+      my ($test_name, $flags, $in, $exp, $ret) = @$t;
+
+      # Prepend the common options to $FLAGS.
+      my $sep = ($flags ? ' ' : '');
+      $flags = "$common_option_prefix$sep$flags";
+      push (@new_tv, [$test_name, $flags, $in, $exp, $ret]);
+    }
+
+  return @new_tv;
 }
 
 1;
-- 
cgit v1.2.3-54-g00ecf