diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-08-23 23:22:26 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-08-23 23:33:13 -0700 |
commit | cc7e6304967ecf351513ec99028a4b95f166ac1c (patch) | |
tree | 09ff961ad9c1682dfa950430c76f0b7918da94c9 /lib/_charnames.pm | |
parent | d8f2b4423a52fa446d007c5cf5cb349d82eaa2f1 (diff) | |
download | perl-cc7e6304967ecf351513ec99028a4b95f166ac1c.tar.gz |
Partial minitest fix-up
While minitest passes all its tests when everything has been
built, it is sometimes useful to run it when nothing has been
built but miniperl (especially when one is working on low-level
stuff that breaks miniperl). Many tests fail if things have
not been built yet because miniperl can’t find modules like
re.pm. This patch fixes up some tests to find those modules
and changes _charnames.pm to load File::Spec only when it
needs it.
There are still many more failures, but I’ll leave the rest
for another time (or another hacker :-).
Diffstat (limited to 'lib/_charnames.pm')
-rw-r--r-- | lib/_charnames.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/_charnames.pm b/lib/_charnames.pm index 92286c2067..b27fd05afe 100644 --- a/lib/_charnames.pm +++ b/lib/_charnames.pm @@ -6,7 +6,6 @@ package _charnames; use strict; use warnings; -use File::Spec; our $VERSION = '1.41'; use unicore::Name; # mktables-generated algorithmically-defined names @@ -237,6 +236,7 @@ sub not_legal_use_bytes_msg { sub alias_file ($) # Reads a file containing alias definitions { + require File::Spec; my ($arg, $file) = @_; if (-f $arg && File::Spec->file_name_is_absolute ($arg)) { $file = $arg; |