fixup perlcritic: indirect new
> Subroutine new called using indirect syntax at line 14, column 14. See page 349 of PBP. (Severity: 5)
This commit is contained in:
@ -11,7 +11,7 @@ sub process {
|
||||
|
||||
my @storePaths = @{$c->stash->{storePaths}};
|
||||
|
||||
my $fh = new IO::Handle;
|
||||
my $fh = IO::Handle->new();
|
||||
|
||||
open $fh, "nix-store --export `nix-store -qR @storePaths` | gzip |";
|
||||
|
||||
|
@ -11,7 +11,7 @@ sub process {
|
||||
|
||||
$c->response->content_type('text/plain; charset=utf-8');
|
||||
|
||||
my $fh = new IO::Handle;
|
||||
my $fh = IO::Handle->new();
|
||||
|
||||
my $tail = int($c->stash->{tail} // "0");
|
||||
|
||||
|
@ -13,7 +13,7 @@ sub process {
|
||||
|
||||
$c->response->content_type('application/x-nix-archive'); # !!! check MIME type
|
||||
|
||||
my $fh = new IO::Handle;
|
||||
my $fh = IO::Handle->new();
|
||||
|
||||
open $fh, "nix-store --dump '$storePath' | pixz -0 $pParam |";
|
||||
|
||||
|
Reference in New Issue
Block a user