Re: bug in cygwin perl 5.6.1?

["Dr. Volker Zell" <Dr dot Volker dot Zell at oracle dot com>]

>>>>> "Christopher" == Christopher Faylor <cgf@redhat.com> writes:

    Christopher> perl -e 'print $^S || 0, "\n";eval {print $^S || 0, "\n"}; print $^S || 0, "\n";'

    Christopher> This should print:

    Christopher> 0
    Christopher> 1
    Christopher> 0

    Christopher> Instead, it prints:

    Christopher> 0
    Christopher> 1
    Christopher> 1

Here it gives:

08:41pm [500]> perl -e 'print $^S || 0, "\n";eval {print $^S || 0, "\n"}; print $^S || 0, "\n";'
0
1
0


Ciao
  Volker


--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Bug reporting:         http://cygwin.com/bugs.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/