This file is indexed.

/usr/bin/poddiff is in sdf 2.001+1-5.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#!/usr/bin/perl

use Pod::Diff;
use strict;

my $USAGE =
    "usage: poddiff file1 file2\n" .
    " or    poddiff file1 ... dir\n";

# Check the usage
if (scalar(@ARGV) < 2) {
    print $USAGE;
    exit 1;
}

# Handle the directory case
elsif (-d $ARGV[$#ARGV]) {
    my $dir = pop(@ARGV);
    my $file1;
    my $file2;
    my @diff;
    for $file1 (@ARGV) {
        $file2 = "$dir/$file1";
        @diff = pod_diff_files($file1, $file2);
        print "$file1: " . scalar(@diff) . " paragraphs differ\n";
        if (@diff) {
            print join("\n", @diff), "\n";
        }
    }
}

# Handle the simple case
elsif (scalar(@ARGV) == 2) {
    my @diff = POD::Diff::pod_diff_files(@ARGV);
    if (@diff) {
        print scalar(@diff) . " paragraphs differ\n";
        print join("\n", @diff), "\n";
    }
}
else {
    print $USAGE;
    exit 1;
}

# Print some statistics
pod_diff_print_stats(\*STDOUT);