projects
/
MojoFacets.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
1abad69
)
show 10 last changes
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 23 May 2010 16:09:59 +0000
(18:09 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 23 May 2010 16:09:59 +0000
(18:09 +0200)
lib/MojoFacets/Changes.pm
patch
|
blob
|
history
diff --git
a/lib/MojoFacets/Changes.pm
b/lib/MojoFacets/Changes.pm
index
0588c19
..
3b94253
100644
(file)
--- a/
lib/MojoFacets/Changes.pm
+++ b/
lib/MojoFacets/Changes.pm
@@
-10,10
+10,13
@@
use Storable;
sub index {
my $self = shift;
+ my $max = $self->param('max') || 10;
+
my $changes;
- foreach my $path ( glob '/tmp/changes/*' ) {
+ foreach my $path (
sort { $b cmp $a }
glob '/tmp/changes/*' ) {
if ( $path =~ m{/((\d+\.\d+)\.data\.(.+))$} ) {
push @$changes, { uid => $1, t => $2, action => $3 };
+ last if $#$changes > $max;
} else {
warn "ignore: $path\n";
}