Patch to fix regression test failures - set PS4

["Rocky Bernstein" <rocky.bernstein@xxxxxxxxx>]

Hi -

A couple of the regression tests in E01 and E02 seem to fail because
they assume PS4 is the default value. Seems like a simple thing to set
it before testing. A patch based off of the CVS of Aug 9 should be
attached.

Index: Test/E01options.ztst
===================================================================
RCS file: /cvsroot/zsh/zsh/Test/E01options.ztst,v
retrieving revision 1.21
diff -u -r1.21 E01options.ztst
--- Test/E01options.ztst	18 Jun 2007 13:25:10 -0000	1.21
+++ Test/E01options.ztst	10 Aug 2008 02:16:12 -0000
@@ -1034,6 +1034,7 @@
 # This really just tests if XTRACE is egregiously broken.
 # To test it properly would need a full set of its own.
   fn() { print message; }
+  PS4='+%N:%i> '
   setopt xtrace
   fn
   unsetopt xtrace
@@ -1041,6 +1042,6 @@
 0:XTRACE option
 >message
 >message
-?+(eval):3> fn
+?+(eval):4> fn
 ?+fn:0> print message
-?+(eval):4> unsetopt xtrace
+?+(eval):5> unsetopt xtrace
Index: Test/E02xtrace.ztst
===================================================================
RCS file: /cvsroot/zsh/zsh/Test/E02xtrace.ztst,v
retrieving revision 1.6
diff -u -r1.6 E02xtrace.ztst
--- Test/E02xtrace.ztst	11 Jun 2008 09:27:55 -0000	1.6
+++ Test/E02xtrace.ztst	10 Aug 2008 02:16:12 -0000
@@ -11,6 +11,7 @@
 
 %test
 
+  PS4='+%N:%i> '
   set -x
   print 'Tracing: builtin'
   print 'Tracing: builtin 2>file' 2>xtrace.err
@@ -55,33 +56,33 @@
 >Tracing: function 2>file
 >Tracing: source
 >Tracing: source 2>file
->+(eval):3> print 'Tracing: builtin 2>file'
->+(eval):5> cat
->+(eval):7> print 'Tracing: ( builtin ) 2>file'
->+(eval):9> cat
->+(eval):11> print 'Tracing: { builtin } 2>file'
->+(eval):13> cat
->+(eval):15> print 'Tracing: do builtin done 2>file'
->+(eval):17> cat
->+(eval):19> xtf 'Tracing: function 2>file'
+>+(eval):4> print 'Tracing: builtin 2>file'
+>+(eval):6> cat
+>+(eval):8> print 'Tracing: ( builtin ) 2>file'
+>+(eval):10> cat
+>+(eval):12> print 'Tracing: { builtin } 2>file'
+>+(eval):14> cat
+>+(eval):16> print 'Tracing: do builtin done 2>file'
+>+(eval):18> cat
+>+(eval):20> xtf 'Tracing: function 2>file'
 >+xtf:1> local regression_test_dummy_variable
 >+xtf:2> print 'Tracing: function 2>file'
->+(eval):21> . ./xt.in 'Tracing: source 2>file'
+>+(eval):22> . ./xt.in 'Tracing: source 2>file'
 >+./xt.in:1> print 'Tracing: source 2>file'
-?+(eval):2> print 'Tracing: builtin'
-?+(eval):4> cat
-?+(eval):6> print 'Tracing: ( builtin )'
-?+(eval):8> cat
-?+(eval):10> print 'Tracing: { builtin }'
-?+(eval):12> cat
-?+(eval):14> print 'Tracing: do builtin done'
-?+(eval):16> cat
-?+(eval):18> xtf 'Tracing: function'
+?+(eval):3> print 'Tracing: builtin'
+?+(eval):5> cat
+?+(eval):7> print 'Tracing: ( builtin )'
+?+(eval):9> cat
+?+(eval):11> print 'Tracing: { builtin }'
+?+(eval):13> cat
+?+(eval):15> print 'Tracing: do builtin done'
+?+(eval):17> cat
+?+(eval):19> xtf 'Tracing: function'
 ?+xtf:1> local regression_test_dummy_variable
 ?+xtf:2> print 'Tracing: function'
-?+(eval):20> . ./xt.in 'Tracing: source'
+?+(eval):21> . ./xt.in 'Tracing: source'
 ?+./xt.in:1> print 'Tracing: source'
-?+(eval):22> set +x
+?+(eval):23> set +x
 
  typeset -ft xtf
  xtf 'Tracing: function'