[interchange-cvs] interchange - racke modified scripts/localize.PL

[interchange-core@interchange.redhat.com]

User:      racke
Date:      2001-10-04 09:06:37 GMT
Modified:  scripts  Tag: STABLE_4_8-branch localize.PL
Log:
skip comment if it's the same as the key

Revision  Changes    Path
No                   revision



No                   revision



2.0.2.3   +4 -9      interchange/scripts/localize.PL


rev 2.0.2.3, prev_rev 2.0.2.2
Index: localize.PL
===================================================================
RCS file: /anon_cvs/repository/interchange/scripts/localize.PL,v
retrieving revision 2.0.2.2
retrieving revision 2.0.2.3
diff -u -r2.0.2.2 -r2.0.2.3
--- localize.PL	2001/10/01 13:22:58	2.0.2.2
+++ localize.PL	2001/10/04 09:06:37	2.0.2.3
@@ -50,7 +50,7 @@
 #
 # Interchange localizer
 #
-# $Id: localize.PL,v 2.0.2.2 2001/10/01 13:22:58 racke Exp $
+# $Id: localize.PL,v 2.0.2.3 2001/10/04 09:06:37 racke Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -353,7 +353,7 @@
 my $d = $Locale->{$def};
 my $l = $Locale->{$opt_l};
 
-my($text, $dat, $cmt);
+my($text, $dat);
 
 foreach $key (sort keys %$d) {
 		$dat = ($Comment{$key} || '') and
@@ -363,13 +363,8 @@
 
         unless ($opt_n) {
 		    if ($dat) {
-			    $cmt = $dat;
+		        $loc_text .= "# $dat\n";
 		    }
-		    else {
-			    $cmt = $key;
-			    $cmt =~ s/\n/\n# /g;
-		    }
-		    $loc_text .= "# $cmt\n";
         }
 
 		$text = &$Uneval($key);
@@ -401,7 +396,7 @@
 
 =head1 VERSION
 
-# $Id: localize.PL,v 2.0.2.2 2001/10/01 13:22:58 racke Exp $
+# $Id: localize.PL,v 2.0.2.3 2001/10/04 09:06:37 racke Exp $
 
 =head1 SYNOPSIS