Re^3: $0 in perl pod, not expanding to script name

[hippo]

In that case, just post-process it:

=pod


Usage: C<$0>

=cut

$arg = shift();

if (defined($arg) && $arg eq '-h') {
    for (`pod2text $0`) {
        s/\$0/$0/;
        print;
    }
}