Parent Directory | Revision Log | Patch
revision 22 by dpavlin, Mon Jul 26 20:30:12 2004 UTC | revision 23 by dpavlin, Thu Oct 7 16:21:54 2004 UTC | |
---|---|---|
# | Line 29 foreach my $k (qw{ | Line 29 foreach my $k (qw{ |
29 | ||
30 | if (open(T,"| sort > entities.txt")) { | if (open(T,"| sort > entities.txt")) { |
31 | print T $t->to_string; | print T $t->to_string; |
32 | print STDERR "entities saved in entities.txt\n"; | diag "entities saved in entities.txt"; |
33 | close(T); | close(T); |
34 | } | } |
35 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |