[interchange-cvs] interchange - racke modified scripts/localize.PL
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Thu Oct 4 05:07:01 2001
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