hah, never mind, just saw Re: Solved - Using a module under VMS

case insensitive filesystems and case sensitive programming languages ... strict.pm/warnings.pm checks for this ... but they're important

# Verify that we're called correctly so that strictures will work.
unless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) {
    # Can't use Carp, since Carp uses us!
    my (undef, $f, $l) = caller;
    die("Incorrect use of pragma '${\__PACKAGE__}' at $f line $l.\n");
}
[download]