[WWcvs] pg: correct syntax error in BEGIN that caused a warning in Perl 5.10

[Arnie P. v. a. <we...@ma...>]

Log Message:
-----------
correct syntax error in BEGIN that caused a warning in Perl 5.10

Modified Files:
--------------
    pg/lib/WeBWorK:
        EquationCache.pm

Revision Data
-------------
Index: EquationCache.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/WeBWorK/EquationCache.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -Llib/WeBWorK/EquationCache.pm -Llib/WeBWorK/EquationCache.pm -u -r1.3 -r1.4
--- lib/WeBWorK/EquationCache.pm
+++ lib/WeBWorK/EquationCache.pm
@@ -38,7 +38,7 @@
 use warnings;
 use Digest::MD5 qw(md5_hex);
 use Fcntl qw(:DEFAULT :flock);
-BEGIN { O_RDWR; O_CREAT; LOCK_EX } # get rid of "subroutine redefined" warnings
+BEGIN { my @_junk = (O_RDWR,O_CREAT,LOCK_EX) } # get rid of "subroutine redefined" warnings
 
 =head1 METHODS