cvsuser 02/07/12 14:04:07
Modified: P5EEx/Blue/P5EEx/Blue P5EE.pm
Log:
tiny cleanup
Revision Changes Path
1.14 +2 -2 p5ee/P5EEx/Blue/P5EEx/Blue/P5EE.pm
Index: P5EE.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/P5EE.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -w -r1.13 -r1.14
--- P5EE.pm 24 May 2002 17:22:42 -0000 1.13
+++ P5EE.pm 12 Jul 2002 21:04:07 -0000 1.14
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: P5EE.pm,v 1.13 2002/05/24 17:22:42 spadkins Exp $
+## $Id: P5EE.pm,v 1.14 2002/07/12 21:04:07 spadkins Exp $
#############################################################################
package P5EEx::Blue::P5EE;
@@ -389,7 +389,7 @@
sub new {
my $self = shift;
- return $self->context(@_) if ($#_ == -1);
+ return $self->context() if ($#_ == -1);
my $class = shift;
if ($class =~ /^([A-Za-z0-9:_]+)$/) {
$class = $1; # untaint the $class
