Skip to content

Commit

Permalink
valgrindpp.pl: Fix new indirect syntax
Browse files Browse the repository at this point in the history
In two places
Also format POD in few places
  • Loading branch information
rwp0 committed Nov 25, 2023
1 parent 18cfa0e commit ea6402e
Showing 1 changed file with 5 additions and 4 deletions.
9 changes: 5 additions & 4 deletions Porting/valgrindpp.pl
@@ -1,4 +1,5 @@
#!/usr/bin/perl

use IO::File ();
use File::Find qw(find);
use Text::Wrap qw(wrap);
Expand Down Expand Up @@ -49,7 +50,7 @@
# (do it early, as it may fail)
my $fh = \*STDOUT;
if (exists $opt{'output-file'}) {
$fh = new IO::File ">$opt{'output-file'}"
$fh = IO::File->new($opt{'output-file'}, 'w')
or die "$0: cannot open $opt{'output-file'} ($!)\n";
}

Expand Down Expand Up @@ -197,7 +198,7 @@ sub filter {

# Get all the valgrind output lines
my @l = do {
my $fh = new IO::File $_ or die "$0: cannot open $_ ($!)\n";
my $fh = IO::File->new($_, 'r') or die "$0: cannot open $_ ($!)\n";
# Process outputs can interrupt each other, so sort by pid first
my %pid; local $_;
while (<$fh>) {
Expand Down Expand Up @@ -269,7 +270,7 @@ sub debug {
=head1 NAME
valgrindpp.pl - A post processor for make test.valgrind
valgrindpp.pl - A post processor for C<make test.valgrind>
=head1 SYNOPSIS
Expand All @@ -281,7 +282,7 @@ =head1 SYNOPSIS
=head1 DESCRIPTION
B<valgrindpp.pl> is a post processor for I<.valgrind> files
created during I<make test.valgrind>. It collects all these
created during C<make test.valgrind>. It collects all these
files, extracts most of the information and produces a
significantly shorter summary of all detected memory access
errors and memory leaks.
Expand Down

0 comments on commit ea6402e

Please sign in to comment.