|
Lines 26-32
use C4::Log;
Link Here
|
| 26 |
use Getopt::Long; |
26 |
use Getopt::Long; |
| 27 |
use Pod::Usage; |
27 |
use Pod::Usage; |
| 28 |
use YAML::XS; |
28 |
use YAML::XS; |
| 29 |
use Encode; |
|
|
| 30 |
our %NOT_SET_PREFS = map { $_, 1 } qw( Version ); |
29 |
our %NOT_SET_PREFS = map { $_, 1 } qw( Version ); |
| 31 |
|
30 |
|
| 32 |
=head1 NAME |
31 |
=head1 NAME |
|
Lines 214-224
my %commands = (
Link Here
|
| 214 |
'o:s' => \$outfile |
213 |
'o:s' => \$outfile |
| 215 |
) || _print_usage( 1 ); |
214 |
) || _print_usage( 1 ); |
| 216 |
|
215 |
|
| 217 |
if ( $outfile ) { |
216 |
YAML::XS::DumpFile( $outfile || \*STDOUT, GetPreferences() ); |
| 218 |
YAML::XS::DumpFile( $outfile, GetPreferences() ); |
|
|
| 219 |
} else { |
| 220 |
print Encode::decode_utf8(YAML::XS::Dump(GetPreferences())); |
| 221 |
} |
| 222 |
}, |
217 |
}, |
| 223 |
load => sub { |
218 |
load => sub { |
| 224 |
my ( $infile, $force_version ); |
219 |
my ( $infile, $force_version ); |
| 225 |
- |
|
|