[EMAIL PROTECTED] wrote:
>
> Very cool.
>
> Leaving aside the question whether anyone *should* tell the difference between 2
> and "2",
In this case, only to get PurePerl to act the same way as DBI when
putting quotes around values in neat(), not a large loss if it's
missing.
> here is one (untested) way to do it
Great, thanks!
> +BEGIN {
> + # Set inlinable constants based on feature tests.
> + local ($@);
> + if (eval { require B; }) {
Hmm, optionally requiring an XS module ... sort of takes the Pure out of
PurePerl :-).
> + eval ('sub HAVE_B () { 1 }');
Hmm, string eval ... I wonder if this feature is worth that price.
--
Jeff
