From 2051590296cad6f6037c5dae5f20993d43953c9d Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Tue, 29 May 2007 14:37:36 +0000 Subject: [PATCH] =?utf8?q?Das=20Escapen=20von=20Ausrufezeichen=20darf=20ni?= =?utf8?q?cht=20durch=20zwei=20Ausrufezeichen=20geschehen,=20weil=20die=20?= =?utf8?q?R=C3=BCckwandlung=20sonst=20eventuell=20falsch=20verl=C3=A4uft.?= =?utf8?q?=20Beispiel:=20abc!nop=20->=20abc!!nop=20->=20abc!\nop?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/MoreCommon.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SL/MoreCommon.pm b/SL/MoreCommon.pm index 196702c22..9669cddb3 100644 --- a/SL/MoreCommon.pm +++ b/SL/MoreCommon.pm @@ -11,7 +11,7 @@ sub save_form { $main::lxdebug->enter_sub(); my $old_form = YAML::Dump($main::form); - $old_form =~ s|!|!!|g; + $old_form =~ s|!|!:|g; $old_form =~ s|\n|!n|g; $old_form =~ s|\r|!r|g; @@ -31,7 +31,7 @@ sub restore_form { $old_form =~ s|!r|\r|g; $old_form =~ s|!n|\n|g; - $old_form =~ s|!!|!|g; + $old_form =~ s|!:|!|g; my $new_form = YAML::Load($old_form); map { $form->{$_} = $new_form->{$_}; } keys %{$new_form}; -- 2.20.1