/[Frey]/trunk/lib/Frey/SVN.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/SVN.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 769 by dpavlin, Tue Dec 9 20:31:31 2008 UTC revision 770 by dpavlin, Tue Dec 9 20:31:31 2008 UTC
# Line 19  has repository => ( Line 19  has repository => (
19          default => 'file:///home/dpavlin/private/svn/Frey',          default => 'file:///home/dpavlin/private/svn/Frey',
20  );  );
21    
22    has limit => (
23            is => 'rw',
24            isa => 'Int',
25            default => 50,
26    );
27    
28  sub as_markup {  sub as_markup {
29          my ($self) = @_;          my ($self) = @_;
30    
# Line 87  sub as_markup { Line 93  sub as_markup {
93                  $cmd = "svn log -v --xml $svn_path";                  $cmd = "svn log -v --xml $svn_path";
94          }          }
95    
96            $cmd .= " --limit " . $self->limit if $self->limit;
97    
98          warn "# $cmd\n";          warn "# $cmd\n";
99          open(my $fh, $cmd .' |') || die "failed $cmd: $!";          open(my $fh, $cmd .' |') || die "failed $cmd: $!";
100          my $log;          my $log;
Legend:
Removed from v.769  
changed lines
  Added in v.770
  ViewVC Help
Powered by ViewVC 1.1.26