summaryrefslogtreecommitdiff
path: root/lib/_charnames.pm
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-08-23 23:22:26 -0700
committerFather Chrysostomos <sprout@cpan.org>2014-08-23 23:33:13 -0700
commitcc7e6304967ecf351513ec99028a4b95f166ac1c (patch)
tree09ff961ad9c1682dfa950430c76f0b7918da94c9 /lib/_charnames.pm
parentd8f2b4423a52fa446d007c5cf5cb349d82eaa2f1 (diff)
downloadperl-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.pm2
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;