Author: sparky
Date: Sat Oct 3 19:06:11 2009
New Revision: 10663
Modified:
toys/rsget.pl/RSGet/Main.pm
Log:
- more verbose settings
Modified: toys/rsget.pl/RSGet/Main.pm
==============================================================================
--- toys/rsget.pl/RSGet/Main.pm (original)
+++ toys/rsget.pl/RSGet/Main.pm Sat Oct 3 19:06:11 2009
@@ -112,14 +112,14 @@
my $v = $main::settings{ $s };
my $def = $main::def_settings{ $s };
unless ( $def ) {
- warn "There is no setting '$s' -- defined at
$v->[1].\n";
+ warn "There is no setting '$s' -- defined in
$v->[1].\n";
$die = 1;
next;
}
my $value = $v->[0];
my $re = $def->[2];
unless ( $value =~ m/^$re$/ ) {
- warn "Setting '$s' has invalid value: '$value' --
defined at $v->[1].\n";
+ warn "Setting '$s' has invalid value: '$value' --
defined in $v->[1].\n";
$die = 1;
next;
}
@@ -131,7 +131,10 @@
{
p "Settings:";
foreach my $s ( sort keys %main::settings ) {
- p " $s => " . setting( $s );
+ my $v = $main::settings{ $s };
+ my $def = "";
+ $def = " \t($v->[1])" if verbose( 2 );
+ p " $s => $v->[0]$def";
}
}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
