reg_fold.t: Allow to work on early Unicodes

[perl5.git] / t / re / reg_fold.t

diff --git a/t/re/reg_fold.t b/t/re/reg_fold.t
index 89c4370..9b5ef11 100644 (file)
--- a/t/re/reg_fold.t
+++ b/t/re/reg_fold.t
@@ -20,7 +20,7 @@ use Unicode::UCD;
 # available.  This avoids being affected by potential bugs introduced by other
 # layers of Perl
 if (ord('A') == 65
-    && pack "C*", split /\./, Unicode::UCD::UnicodeVersion() ge v3.1.0
+    && pack("C*", split /\./, Unicode::UCD::UnicodeVersion()) ge v3.1.0
     && open my $fh, "<", $file)
 {
     @folds = <$fh>;