Corrected while loop with $/ variable. Now it is reading whole

paragraph every time.
Also some new translations.
Juraj Kubelka <Juraj.Kubelka at email.cz>.

CVS version numbers

czech/international/czech/dsa-description.pl: 1.7 -> 1.8

1 files changed, 14 insertions, 5 deletions

diff --git a/czech/international/czech/dsa-description.pl b/czech/international/czech/dsa-description.pl
index 84b10437418..202382c1cee 100644
--- a/czech/international/czech/dsa-description.pl
+++ b/czech/international/czech/dsa-description.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -p     -*- mode: perl ; coding: iso-8859-2-unix -*-
+#!/usr/bin/perl -w     -*- mode: perl ; coding: iso-8859-2-unix -*-
 
 # Translate dsa-*.wml file from English to Czech language.
 # USAGE: dsa-description.pl file.wml
@@ -6,6 +6,8 @@
 # Read by paragraph
 $/="\n\n";
 
+while (<>) {
+
 # Delete \n except comment line and last \n in paragraph
 s/\n([^\#])/ $1/g;
 s/ $/\n/g;
@@ -36,6 +38,9 @@ s{<define-tag description>([^<]*)insecure temporary files([^<]*)</define-tag>}
 s{<define-tag description>([^<]*)insecure temporary file([^<]*)</define-tag>}
 {<define-tag description>${1}nespolehlivý dočasný soubor${2}</define-tag>}g;
 
+s{<define-tag description>([^<]*)insecure temporary directory([^<]*)</define-tag>}
+{<define-tag description>${1}nespolehlivý dočasný adresář${2}</define-tag>}g;
+
 s{<define-tag description>([^<]*)unsanitised input([^<]*)</define-tag>}
 {<define-tag description>${1}neošetřený vstup${2}</define-tag>}g;
 
@@ -155,13 +160,16 @@ s{<p>For the (stable|unstable) distribution}
 {<p>Pro $1 distribuci}g;
 
 s{this problem has been fixed in version}
-{byl tento problém opraven ve verzi}g;
+{byl tento problém opraven\nve verzi}g;
 
 s{these problems have been fixed in version}
-{byly tyto problémy opraveny ve verzi}g;
+{byly tyto problémy opraveny\nve verzi}g;
+
+s{this problem will be fixed soon.</p>}
+{bude tento problém brzy\nodstraněn.</p>}g;
 
 s{these problems will be fixed soon.</p>}
-{budou tyto problémy brzy odstraněny.</p>}g;
+{budou tyto problémy brzy\nodstraněny.</p>}g;
 
 s{<p>This package is not present in the testing and unstable distributions.</p>}
 {<p>Tento balíček není obsažen v testing a unstable distribuci.</p>}g;
@@ -190,4 +198,5 @@ s{<p>We recommend that you upgrade your (\w+) packages.</p>}
 s{ </define-tag>}{\n</define-tag>}g;
 s{<define-tag moreinfo> }{<define-tag moreinfo>\n}g;
 
-#print "---\n";
+print ;
+} # while