From:	David Golden	Date:	Mon Mar  3 08:42:45 2008
Subject:	Re: Win32::API v0.52 released to CPAN

On Mon, Mar 3, 2008 at 10:25 AM, Jan Dubois <jand@activestate.com> wrote:
>  However, I think using Devel::AssertOS is really overkill for this purpose.
>  I just use the following code in most Win32::* modules:
>
>     unless ($^O eq "MSWin32" || $^O eq "cygwin") {
>         die "OS unsupported\n";
>     }
>
>  I'm not sure why using a module would be better for this simple use case.

Just for historical reference, the idea was to avoid having to explain
the "OS unsupported" incantation to people each time and avoid them
having to get it wrong.  The "use-devel-assertos" script is supposed
to be "fire and forget" to hide the details.

Of course, it really needs to do something about setting "no_index"
for inc/.  I'll file a bug on RT (if there isn't one already).  At the
least, it should warn liberally about it.  Setting no_index is
relatively easy with Build.PL, but hard in ExtUtils::MakeMaker
(die!die!die!).

For example, in Build.PL, just add arguments to new() like this:

    meta_add            => {
        no_index => {
            directory => [ qw/ examples inc t / ],
        }
    },

David