cvsuser 02/08/16 09:08:14
Modified: P5EEx/Blue/P5EEx/Blue/Config File.pm
Log:
save the name of the config file if autodetected
Revision Changes Path
1.9 +6 -2 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.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- File.pm 12 Jul 2002 21:09:21 -0000 1.8
+++ File.pm 16 Aug 2002 16:08:14 -0000 1.9
@@ -1,10 +1,10 @@
#############################################################################
-## $Id: File.pm,v 1.8 2002/07/12 21:09:21 spadkins Exp $
+## $Id: File.pm,v 1.9 2002/08/16 16:08:14 spadkins Exp $
#############################################################################
package P5EEx::Blue::Config::File;
-$VERSION = do { my @r=(q$Revision: 1.8 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.9 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Config;
@@ -82,6 +82,10 @@
}
}
}
+ }
+
+ if ($file) {
+ $args->{configFile} = $file;
}
# if a config file is specified, it must exist
