cvsuser 02/04/18 21:37:09
Modified: P5EEx/Blue/P5EEx/Blue/Config File.pm
Log:
no longer need to specify a config file
Revision Changes Path
1.6 +3 -8 p5ee/P5EEx/Blue/P5EEx/Blue/Config/File.pm
Index: File.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Config/File.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- File.pm 18 Feb 2002 18:45:09 -0000 1.5
+++ File.pm 19 Apr 2002 04:37:09 -0000 1.6
@@ -1,10 +1,10 @@
#############################################################################
-## $Id: File.pm,v 1.5 2002/02/18 18:45:09 spadkins Exp $
+## $Id: File.pm,v 1.6 2002/04/19 04:37:09 spadkins Exp $
#############################################################################
package P5EEx::Blue::Config::File;
-$VERSION = do { my @r=(q$Revision: 1.5 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.6 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Config;
@@ -69,12 +69,7 @@
}
}
- if (!$file) {
- P5EEx::Blue::Exception::Config->throw(
- error => "create(): no config file specified or found\n"
- );
- }
-
+ # if a config file is specified, it must exist
if (! open(main::FILE,"< $file")) {
P5EEx::Blue::Exception::Config->throw(
error => "create(): [$file] $!\n"
