Hi,
Here are 2 patches:
- one for oscar_wizard that adds few debug messages if --debug option is used
- second one: ConfigFile.pm fixes the startup warning.
As I'm perl newbee, please check that I'm correct as I'm not sure of the
impact.
I've read that AppConfig CREATE enable automatic creation of variables from
config file if value is 1 and or a regexp.
if it's a regexp, then only variable names matching the regexps gets
created.
^* means nothing to me (is it all lines having at least one beginning??? or
is it all lignes starting with an asterisk (grep behaviour)....
I've replaced this with "^.*" but I may be wrong. In that case, what is the
correct value to avoid the warning?
The log of the fixed error:
=============================================================================
== oscar_wizard: Starting...
=============================================================================
^* matches null string many times in regex; marked by <-- HERE in m/^* <-- HERE
/ at /usr/lib/perl5/vendor_perl/5.8.8/AppConfig/State.pm line 315, <FH> line 15.
^* matches null string many times in regex; marked by <-- HERE in m/^* <-- HERE
/ at /usr/lib/perl5/vendor_perl/5.8.8/AppConfig/State.pm line 395.
Best regards.
--
Olivier LAHAYE
CEA Saclay
DRT-LIST-DETECS-SSTM
--- /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/ConfigFile.pm.orig 2009-11-18 16:36:42.000000000 +0100
+++ /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/ConfigFile.pm 2009-11-18 17:02:34.000000000 +0100
@@ -231,11 +231,13 @@
use vars qw($config);
$config = AppConfig->new({
- CREATE => '^*',
+# CREATE => '^*',
+ CREATE => '^.*',
},
);
$config->file ($config_file);
- my %vars = $config->varlist("^*");
+# my %vars = $config->varlist("^*");
+ my %vars = $config->varlist(".*");
my ($key, $value);
while ( ($key, $value) = each(%vars) ) {
if (defined ($block) ){
--- /usr/bin/oscar_wizard.orig 2009-11-18 17:19:20.000000000 +0100
+++ /usr/bin/oscar_wizard 2009-11-18 17:28:40.000000000 +0100
@@ -220,6 +220,10 @@
if (!OSCAR::Utils::is_a_valid_string ($distro_id)) {
die "ERROR: Impossible to detect the local distro ID";
}
+if( $debug ) {
+ print "Detected distro: ".$distro_id."\n";
+}
+
my @setup_distros = OSCAR::PackagePath::get_list_setup_distros ();
if (scalar (@setup_distros) == 0 ||
!OSCAR::Utils::is_element_in_array ($distro_id, @setup_distros)) {
@@ -227,8 +231,9 @@
"--setup-distro <distro_id>\" first (see man oscar-config for more ".
"details";
}
-
-
+if( $debug ) {
+ print "Setup Distros: " . Dumper @setup_distros ;
+}
# Create the main window...
my $window = MainWindow->new();
$window->withdraw();
@@ -260,7 +265,9 @@
else {
die("ERROR: OSCAR VERSION file missing '$oscar_version_file' - aborting!");
}
-
+if( $debug ) {
+ print "Oscar version: " . $oscar_version . "\n";
+}
# Define the main buttons
#
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Oscar-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/oscar-devel
