Parent Directory | Revision Log | Patch
revision 514 by dpavlin, Mon Oct 18 12:19:34 2004 UTC | revision 515 by dpavlin, Mon Oct 18 13:59:12 2004 UTC | |
---|---|---|
# | Line 45 sub new { | Line 45 sub new { |
45 | my $log_file = $self->{'log'} || "log.conf"; | my $log_file = $self->{'log'} || "log.conf"; |
46 | Log::Log4perl->init($log_file); | Log::Log4perl->init($log_file); |
47 | ||
48 | tie @{$self->{'index'}}, "Tie::Array::Sorted", sub { | tie @{$self->{'index'}}, "Tie::Array::Sorted::Lazy", sub { |
49 | lc( $_[0]->{'headline'} ) cmp lc( $_[1]->{'headline'} ) | lc( $_[0]->{'headline'} ) cmp lc( $_[1]->{'headline'} ) |
50 | }; | }; |
51 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |