[Rt-commit] rtir branch, 4.0/fix-regex-issue, created. 4.0.0-17-gf662cc9

[Dave Goehrig]

The branch, 4.0/fix-regex-issue has been created
        at  f662cc9432c74e52ce3c242e9c804fcdd61f2f87 (commit)

- Log -----------------------------------------------------------------
commit f662cc9432c74e52ce3c242e9c804fcdd61f2f87
Author: Dave Goehrig <dave at bestpractical.com>
Date:   Fri Jan 6 14:06:22 2017 -0500

    Fix a regex deprecation for perl 5.22.x and beyond
    
    The regex in etc/upgrade/2.9.0/content uses unescaped {}
    and fails tests with a deprecation warning with perl-5.22.x

diff --git a/etc/upgrade/2.9.0/content b/etc/upgrade/2.9.0/content
index f2c5e49..eabf2c4 100644
--- a/etc/upgrade/2.9.0/content
+++ b/etc/upgrade/2.9.0/content
@@ -419,7 +419,7 @@ our @Final = (
             my $props = $search->Content;
             next unless $props && ref($props) eq 'HASH' && $props->{'Format'};
 
-            next unless $props->{'Format'} =~ s{'__CustomField\.{State}__(?:/TITLE:State)?'}{__Status__}g;
+            next unless $props->{'Format'} =~ s%'__CustomField\.\{State\}__(?:/TITLE:State)?'%__Status__%g;
 
             my ($status, $msg) = $search->SetContent( $props );
             RT->Logger->error("Couldn't update saved search: $msg")

-----------------------------------------------------------------------