Revision 65b2387a
Von Moritz Bunkus vor mehr als 5 Jahren hinzugefügt
| SL/MoreCommon.pm | ||
|---|---|---|
| 8 | 8 |
|
| 9 | 9 |
use Encode (); |
| 10 | 10 |
use List::MoreUtils qw(zip); |
| 11 |
use YAML; |
|
| 11 |
use SL::YAML;
|
|
| 12 | 12 |
|
| 13 | 13 |
use strict; |
| 14 | 14 |
|
| ... | ... | |
| 23 | 23 |
delete $main::form->{$key};
|
| 24 | 24 |
} |
| 25 | 25 |
|
| 26 |
my $old_form = YAML::Dump($main::form); |
|
| 26 |
my $old_form = SL::YAML::Dump($main::form);
|
|
| 27 | 27 |
$old_form =~ s|!|!:|g; |
| 28 | 28 |
$old_form =~ s|\n|!n|g; |
| 29 | 29 |
$old_form =~ s|\r|!r|g; |
| ... | ... | |
| 49 | 49 |
$old_form =~ s|!n|\n|g; |
| 50 | 50 |
$old_form =~ s|![!:]|!|g; |
| 51 | 51 |
|
| 52 |
my $new_form = YAML::Load($old_form); |
|
| 52 |
my $new_form = SL::YAML::Load($old_form);
|
|
| 53 | 53 |
map { $form->{$_} = $new_form->{$_} if (!$keep_vars_map{$_}) } keys %{ $new_form };
|
| 54 | 54 |
|
| 55 | 55 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Module: gebundletes YAML durch dünnen Wrapper über YAML::XS & YAML ersetzt