l10ntools/scripts/localize.pl

145             my $line           = defined $_ ? $_ : '';
155 	        chomp( $line );
159 …string_hash_ooo { $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$plattform\t$lang" } = $line;
163 … $string_hash_so{ $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$plattform\t$lang" } = $line;
209                     my $line           = defined $_ ? $_ : '';
219                     chomp( $line );
229                         push @sdf_file , $line;
448                             my $line           = defined $_ ? $_ : '';
458                             chomp( $line );
463 …   $fallbackhashhash_ref->{ $cur_lang }{ $prj.$gid.$lid.$file.$type.$plattform.$helpid } =  $line ;
472             foreach my $line ( keys( %{$fallbackhashhash_ref->{ $cur_lang } } )) {
475 …                 print ALLPARTICLES_MERGED ( $fallbackhashhash_ref->{ $cur_lang }{ $line }, "\n" );
589                     foreach my $line ( @{$curlist} ){
590                         print DESTFILE $line;
622                 my $line           = defined $_ ? $_ : '';
636                     push @good_lines , $line;
639                         print STDERR "BADLINE: $line\n";
644                         push @good_lines , $line;
674             my $line;
676                 $line = $_;
677                 if( $line =~ /^[^\#]/ ){
678                     push @lines , $line;
749     my $line;
752         $line = $fallbackhashhash_ref->{ $cur_fallback }{ $key };
753         if( $line =~ /$sdf_regex/ ){
836             my $line           = defined $_ ? $_ : '';
847 …lang/i || $isolang=~ /all/i ) { $block{$prj.$gid.$lid.$file.$type.$plattform.$helpid } =  $line ; }
865                     my $line           = defined $_ ? $_ : '';
875                     chomp( $line );
879 …   $fallbackhashhash_ref->{ $isolang }{ $prj.$gid.$lid.$file.$type.$plattform.$helpid } =  $line ;
901             my $line           = defined $_ ? $_ : '';
911             chomp( $line );
912 … { $fallbackhashhash_ref->{ $isolang }{ $prj.$gid.$lid.$file.$type.$plattform.$helpid } =  $line ;