forked from openkylin/libsub-quote-perl
13 lines
312 B
Perl
13 lines
312 B
Perl
use strict;
|
|
use warnings;
|
|
no warnings 'once';
|
|
use B;
|
|
BEGIN {
|
|
local $utf8::{is_utf8};
|
|
local $B::{perlstring};
|
|
require Sub::Quote;
|
|
}
|
|
die "Unable to disable utf8::is_utf8 and B::perlstring for testing"
|
|
unless !Sub::Quote::_HAVE_IS_UTF8 && ! Sub::Quote::_HAVE_PERLSTRING;
|
|
do './t/quotify.t' or die $@ || $!;
|