The R Project SVN R-packages

Rev

Rev 5677 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5677 Rev 5732
Line 52... Line 52...
52 
    $tra = $ent{$_} if ($tra eq '');
 52 
    $tra = $ent{$_} if ($tra eq '');
53 
    print "/* Entry = \"$_\"; Class = \"$hc{$_}\" */\n\"$ent{$_}\" = \"$tra\";\n\n";
 53 
    print "/* Entry = \"$_\"; Class = \"$hc{$_}\" */\n\"$ent{$_}\" = \"$tra\";\n\n";
54 
}
 54 
}
55 
 
 55 
 
56 
foreach (keys(%tlt)) {
 56 
foreach (keys(%tlt)) {
57 
    if (!defined $ent{$_}) {
 57 
    if (!defined $ent{$_} && $ent{$_} ne '') { ## orphan non-empty text strings
58 
	print "/* OrphanEntry = \"$_\"; Class = \"$hc{$_}\"; text = \"$ent{$_}\" */\n";
 58 
	print "/* OrphanEntry = \"$_\"; Class = \"$hc{$_}\"; text = \"$ent{$_}\" */\n";
59 
    }
 59 
    }
60 
}
 60 
}
61 
 
 61 
 
- 
 
 62 
if ($ENV{KEEP} ne '') {
- 
 
 63 
    print STDERR "KEEP set, leaving all files in $td\n";
- 
 
 64 
    exit0;
- 
 
 65 
}
- 
 
 66 
 
62 
system "rm -rf '$td'";
 67 
system "rm -rf '$td'";