| Subject: | [PATCH] Bug/typo in the _hss_attval_size regex |
Perl 5.21 made this sort of thing an exception, which caught the bug.
| Subject: | 0001-Typo-in-the-_hss_attval_size-regex.patch |
From 48eaa9d94e70c98f36349840cc484e86531b307b Mon Sep 17 00:00:00 2001
From: Brian Fraser <fraserbn@gmail.com>
Date: Sun, 17 Aug 2014 17:57:57 +0200
Subject: [PATCH] Typo in the _hss_attval_size regex
---
StripScripts.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/StripScripts.pm b/StripScripts.pm
index fa6922d..251b49b 100644
--- a/StripScripts.pm
+++ b/StripScripts.pm
@@ -1630,7 +1630,7 @@ size or length.
sub _hss_attval_size {
$_[3]
- =~ /^\s*([+-]?\d{1,20}(?:\.\d{1,20)?)\s*((?:\%|\*|ex|px|pc|cm|mm|in|pt|em)?)\s*$/i
+ =~ /^\s*([+-]?\d{1,20}(?:\.\d{1,20})?)\s*((?:\%|\*|ex|px|pc|cm|mm|in|pt|em)?)\s*$/i
? lc "$1$2"
: undef;
}
--
1.7.12.4 (Apple Git-37)