Merge pull request #7 from srvsh/v0.50

Version 0.50
RT-Client-REST · Dec 12, 2015 · 8ac587e · 8ac587e
2 parents 014a41e + c9b32b8
commit 8ac587e
Show file tree

Hide file tree

Showing 5 changed files with 21 additions and 4 deletions.
diff --git a/rt-client-rest/CHANGES b/rt-client-rest/CHANGES
@@ -1,5 +1,20 @@
 Revision history for Perl module RT::Client::REST
 
+0.50	Fri Dec 11 2015 "Sarvesh Das" <sarveshd@opmbx.org>
+  - Added the 'disabled' attribute to RT::Client::REST::Group and
+    RT::Client::REST::Queue to match the addition in RT 4.2.2 --
+    commit 7557633. Thanks Tom.
+  - Allow a trailing forward slash in the server URI --
+    RT#97621. Thanks Marco Pessotto.
+  - Tests in 82-stringify.t are skipped with LWP::UserAgent 6.04
+    which has buggy read timeout -- commit da577af. Thanks Marco
+    Pessotto.
+  - Fixed warning `Unescaped left brace in regex is deprecated'
+    in perl 5.22 -- RT#106795. Thanks Mike Andrews.
+  - Fixed documentation for RT::Client:REST::search() in POD --
+    RT#98160.
+  - Removed MYMETA* files from distribution -- RT#108083
+
 0.49	Sat May 10 2014 "Dmitri Tikhonov" <dtikhonov@yahoo.com>
   - This module is now all covered by the Perl Artistic License:
     GPL is gone.  This was done with permission from the original

diff --git a/rt-client-rest/MANIFEST.SKIP b/rt-client-rest/MANIFEST.SKIP
@@ -9,4 +9,5 @@ MANIFEST\.SKIP$
 MANIFEST\.bak$
 Makefile\.old$
 \.shipit
+^MYMETA\.
 
diff --git a/rt-client-rest/lib/RT/Client/REST.pm b/rt-client-rest/lib/RT/Client/REST.pm
@@ -24,7 +24,7 @@ use strict;
 use warnings;
 
 use vars qw/$VERSION/;
-$VERSION = '0.49';
+$VERSION = '0.50';
 $VERSION = eval $VERSION;
 
 use Error qw(:try);
@@ -1238,14 +1238,15 @@ RT server, which is either good or bad, depending how you look at it.
 
 =head1 VERSION
 
-This is version 0.49 of B<RT::Client::REST>.
+This is version 0.50 of B<RT::Client::REST>.
 
 =head1 AUTHORS
 
 Original /usr/bin/rt was written by Abhijit Menon-Sen <ams@wiw.org>.  rt
 was later converted to this module by Dmitri Tikhonov <dtikhonov@yahoo.com>.
 In January of 2008, Damien "dams" Krotkine <dams@cpan.org> joined as the
 project's co-maintainer. JLMARTIN has become co-maintainer as of March 2010.
+SRVSH became a co-maintainer in November 2015.
 
 =head1 LICENSE
 

diff --git a/rt-client-rest/lib/RT/Client/REST/Forms.pm b/rt-client-rest/lib/RT/Client/REST/Forms.pm
@@ -14,7 +14,7 @@ use vars qw(@EXPORT @ISA $VERSION);
 $VERSION = .02;
 
 my $CF_name = q%[#\s\w:()?/-]+%;
-my $field   = qr/[a-z][\w-]*|C(?:ustom)?F(?:ield)?-$CF_name|CF\.{$CF_name}/i;
+my $field   = qr/[a-z][\w-]*|C(?:ustom)?F(?:ield)?-$CF_name|CF\.\{$CF_name}/i;
 
 sub expand_list {
     my ($list) = @_;

diff --git a/rt-client-rest/lib/RT/Client/REST/Object.pm b/rt-client-rest/lib/RT/Client/REST/Object.pm
@@ -463,7 +463,7 @@ sub from_form {
     # Now set attributes:
     while (my ($key, $value) = each(%$hash)) {
         # Handle custom fields, ideally /(?(1)})/ would be appened to RE
-	if( $key =~ m%^(?:cf|customfield)(?:-|\.{)([#\s\w_:()?/-]+)% ){
+	if( $key =~ m%^(?:cf|customfield)(?:-|\.\{)([#\s\w_:()?/-]+)% ){
 	    $key = $1;
 
             # XXX very sketchy. Will fail on long form data e.g; wiki CF