cleanup blob_raw ・ a9c70b5 ・ Gitprep

+3 -3

lib/Gitprep/Git.pm

@@ -478,14 +478,14 @@ sub blob_mode {
 }
 
 sub blob_raw {
-  my ($self, $user, $project, $rev, $path) = @_;
+  my ($self, $rep, $rev, $path) = @_;
   
   # Blob raw
-  my @cmd = $self->cmd_rep($user, $project, 'cat-file', 'blob', "$rev:$path");
+  my @cmd = $self->cmd($rep, 'cat-file', 'blob', "$rev:$path");
   open my $fh, "-|", @cmd
     or croak 500, "Open git-cat-file failed";
   local $/;
-  my $blob_raw = scalar <$fh>;
+  my $blob_raw = <$fh>;
 
   close $fh or croak 'Reading git-shortlog failed';
   

+1 -1

templates/raw.html.ep

View

@@ -9,7 +9,7 @@
   my ($rev, $file) = $git->parse_rev_path($user, $project, $rev_file);
   
   # Blob raw
-  my $blob_raw = $git->blob_raw($user, $project, $rev, $file);
+  my $blob_raw = $git->blob_raw(app->rep_info($user, $project), $rev, $file);
   
   # Content type
   my $type = $git->blob_content_type(app->rep_info($user, $project), $rev, $file);

...	...	@@ -478,14 +478,14 @@ sub blob_mode {
478	478	}
479	479
480	480	sub blob_raw {
481		- my ($self, $user, $project, $rev, $path) = @_;
	481	+ my ($self, $rep, $rev, $path) = @_;
482	482
483	483	# Blob raw
484		- my @cmd = $self->cmd_rep($user, $project, 'cat-file', 'blob', "$rev:$path");
	484	+ my @cmd = $self->cmd($rep, 'cat-file', 'blob', "$rev:$path");
485	485	open my $fh, "-\|", @cmd
486	486	or croak 500, "Open git-cat-file failed";
487	487	local $/;
488		- my $blob_raw = scalar <$fh>;
	488	+ my $blob_raw = <$fh>;
489	489
490	490	close $fh or croak 'Reading git-shortlog failed';
491	491

...	...	@@ -9,7 +9,7 @@
9	9	my ($rev, $file) = $git->parse_rev_path($user, $project, $rev_file);
10	10
11	11	# Blob raw
12		- my $blob_raw = $git->blob_raw($user, $project, $rev, $file);
	12	+ my $blob_raw = $git->blob_raw(app->rep_info($user, $project), $rev, $file);
13	13
14	14	# Content type
15	15	my $type = $git->blob_content_type(app->rep_info($user, $project), $rev, $file);