In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/94af2fed9a1c7a2e803805ec3f6aabf58f85bdcf?hp=2515a12cf493baaa211da7524a276dd30695ca29>

- Log -----------------------------------------------------------------
commit 94af2fed9a1c7a2e803805ec3f6aabf58f85bdcf
Author: Jarkko Hietaniemi <[email protected]>
Date:   Wed Oct 28 08:32:33 2015 -0400

    Unicode::Normalize no-go with miniperl.
    
    Unicode::Normalize comes in via Unicode::UCD, which comes in e.g.
    via uni/case.pl.
    
    Tried using test.pl and its skip_all_if_miniperl() in all cases,
    but that leads into weird failures in full 'make test'.
-----------------------------------------------------------------------

Summary of changes:
 t/uni/fold.t  | 1 +
 t/uni/lower.t | 4 ++++
 t/uni/title.t | 4 ++++
 t/uni/upper.t | 4 ++++
 4 files changed, 13 insertions(+)

diff --git a/t/uni/fold.t b/t/uni/fold.t
index 149573a..1a7e865 100644
--- a/t/uni/fold.t
+++ b/t/uni/fold.t
@@ -9,6 +9,7 @@ BEGIN {
     require './test.pl';
     set_up_inc('../lib');
     skip_all_without_unicode_tables();
+    skip_all_if_miniperl("miniperl, no Unicode::Normalize");
     require Config; import Config;
     require './charset_tools.pl';
     require './loc_tools.pl';   # Contains find_utf8_ctype_locale()
diff --git a/t/uni/lower.t b/t/uni/lower.t
index 1301b48..31fd1f7 100644
--- a/t/uni/lower.t
+++ b/t/uni/lower.t
@@ -1,5 +1,9 @@
 BEGIN {
     chdir 't' if -d 't';
+    unless (defined &DynaLoader::boot_DynaLoader) {
+      print("1..0 # miniperl: no Unicode::Normalize");
+      exit(0);
+    }
     require "uni/case.pl";
 }
 
diff --git a/t/uni/title.t b/t/uni/title.t
index 35c4f77..458ca8e 100644
--- a/t/uni/title.t
+++ b/t/uni/title.t
@@ -1,5 +1,9 @@
 BEGIN {
     chdir 't' if -d 't';
+    unless (defined &DynaLoader::boot_DynaLoader) {
+      print("1..0 # miniperl: no Unicode::Normalize");
+      exit(0);
+    }
     require "uni/case.pl";
 }
 
diff --git a/t/uni/upper.t b/t/uni/upper.t
index 41b235c..532f4bd 100644
--- a/t/uni/upper.t
+++ b/t/uni/upper.t
@@ -1,5 +1,9 @@
 BEGIN {
     chdir 't' if -d 't';
+    unless (defined &DynaLoader::boot_DynaLoader) {
+      print("1..0 # miniperl: no Unicode::Normalize");
+      exit(0);
+    }
     require "uni/case.pl";
 }
 

--
Perl5 Master Repository

Reply via email to