mirror of
https://github.com/libvirt/libvirt.git
synced 2025-02-25 18:55:26 -06:00
cc337da21f
Almost all tests are initially disabled via the list in Makefile.cfg. * Makefile.am (EXTRA_DIST): Add .x-sc_avoid_if_before_free. Omit names of files that automake includes automatically. * .x-sc_avoid_if_before_free: New file. * build-aux/vc-list-files: Likewise. * build-aux/find-unnecessary-if-before-free: Likewise. * GNUmakefile, Makefile.cfg, Makefile.maint: New files.
43 lines
1022 B
Perl
Executable File
43 lines
1022 B
Perl
Executable File
#!/usr/bin/perl
|
|
# Detect instances of "if (p) free (p);".
|
|
# Likewise for "if (p != NULL) free (p);".
|
|
# Exit status is like grep: 0 for no match. 1 for any number.
|
|
|
|
# Note: giving line numbers isn't practical, since I've reset the
|
|
# input record separator.
|
|
use strict;
|
|
use warnings;
|
|
(my $ME = $0) =~ s|.*/||;
|
|
|
|
{
|
|
# Use ';' as the input record separator.
|
|
$/ = ';';
|
|
|
|
my $found_match = 0;
|
|
foreach my $file (@ARGV)
|
|
{
|
|
open FH, '<', $file
|
|
or die "$ME: can't open `$file' for reading: $!\n";
|
|
while (defined (my $line = <FH>))
|
|
{
|
|
if ($line =~
|
|
/\b(if\s*\(\s*(\S+?)(?:\s*!=\s*NULL)?\s*\)
|
|
\s+(?:sexpr_)?free\s*\(\s*\2\s*\))/sx)
|
|
{
|
|
print "$file: $1\n";
|
|
$found_match = 1;
|
|
}
|
|
}
|
|
close FH;
|
|
}
|
|
exit !$found_match;
|
|
}
|
|
|
|
my $foo = <<'EOF';
|
|
# The above is to *find* them.
|
|
# This adjusts them, removing the unnecessary "if (p)" part.
|
|
|
|
git ls-files -z |xargs -0 \
|
|
perl -0x3b -pi -e 's/\bif\s*\(\s*(\S+?)(?:\s*!=\s*NULL)?\s*\)\s+((?:sexpr_)?free\s*\(\s*\1\s*\))/$2/s'
|
|
EOF
|