develooper Front page | perl.perl5.porters | Postings from July 2000

Change 6454

Thread Next
From:
H . Merijn Brand
Date:
July 31, 2000 11:12
Subject:
Change 6454
Message ID:
20000728170112.3D03.H.M.BRAND@hccnet.nl

Change 6454 by jhi@alpha on 2000/07/27 14:03:02

	Remove EQ, NE, GT, LT, GE, LE (they have been deprecated
	for a long time).

The patch is either incomplete (see errors below) or going to far. Since I
know what the point is, remove support for these deprecated tests all the way,
I think t/pragma/warnings.t should be changed, but I'm not in charge here ;-)

# TEST pragma/warnings.t
pragma/warnings...PROG:

# Check scope of pragma with eval
use warnings;
{
    no warnings ;
    eval {
        1 if $a EQ $b ;
    }; print STDERR $@ ;
    1 if $a EQ $b ;
}
EXPECTED:

GOT:
Bareword found where operator expected at - line 7, near "$a EQ"
        (Missing operator before EQ?)
Bareword found where operator expected at - line 9, near "$a EQ"
        (Missing operator before EQ?)
syntax error at - line 7, near "$a EQ "
syntax error at - line 9, near "$a EQ "
Execution of - aborted due to compilation errors.
PROG:

# Check scope of pragma with eval
use warnings;
{
    no warnings ;
    eval {
        use warnings 'deprecated' ;
        1 if $a EQ $b ;
    }; print STDERR $@ ;
    1 if $a EQ $b ;
}
EXPECTED:
Use of EQ is deprecated at - line 8.
GOT:
Bareword found where operator expected at - line 8, near "$a EQ"
        (Missing operator before EQ?)
Bareword found where operator expected at - line 10, near "$a EQ"
        (Missing operator before EQ?)
syntax error at - line 8, near "$a EQ "
syntax error at - line 10, near "$a EQ "
Execution of - aborted due to compilation errors.
FAILED at test 40
Failed 1 test script out of 1, 0.00% okay.
   ### Since not all tests were successful, you may want to run some
   ### of them individually and examine any diagnostic messages they
   ### produce.  See the INSTALL document's section on "make test".
   ### If you are testing the compiler, then ignore this message
   ### and run
   ###      ./perl harness
   ### in the directory ./t.
u=0.02  s=0.02  cu=0.71  cs=0.31  scripts=1  tests=410
#
-- 
H.Merijn Brand           Amsterdam Perl Mongers (http://www.amsterdam.pm.org/)
using perl5.005.03, 5.6.0 & 516 on HP-UX 10.20, HP-UX 11.00, AIX 4.2, AIX 4.3,
     DEC OSF/1 4.0 and WinNT 4.0 SP-6a,  often with Tk800.022 and/or DBD-Unify
ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/id/H/HM/HMBRAND/


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About