Changeset 2132 for lang/perl/Catalyst-Controller-Atompub

Timestamp:

11/29/07 01:00:58 (5 years ago)

Author:

takemaru

Message:

lang/perl/Catalyst-Controller-Atompub: unquote If-Match/If-None-Match values in Collection.pm

Location:

lang/perl/Catalyst-Controller-Atompub

Files:

• tags (added)
• tags/0.2.2 (copied) (copied from lang/perl/Catalyst-Controller-Atompub/trunk)
• tags/0.2.2/Changes (modified) (1 diff)
• tags/0.2.2/META.yml (modified) (2 diffs)
• tags/0.2.2/lib/Catalyst/Controller/Atompub.pm (modified) (1 diff)
• tags/0.2.2/lib/Catalyst/Controller/Atompub/Collection.pm (modified) (1 diff)
• trunk/Changes (modified) (1 diff)
• trunk/META.yml (modified) (2 diffs)
• trunk/lib/Catalyst/Controller/Atompub.pm (modified) (1 diff)
• trunk/lib/Catalyst/Controller/Atompub/Collection.pm (modified) (1 diff)

lang/perl/Catalyst-Controller-Atompub/tags/0.2.2/Changes

@@ +1 @@
+2007-11-29  Takeru INOUE  <takeru.inoue _ gmail.com>
+
+        * release 0.2.2:
+        * Catalyst/Controller/Atompub/Collection
+        - unquote If-Match/If-None-Match values
+          thanks Marumoto
+
 2007-11-19  Takeru INOUE  <takeru.inoue _ gmail.com>
 

lang/perl/Catalyst-Controller-Atompub/tags/0.2.2/META.yml

@@ -1 +1 @@
 ---
 name: Catalyst-Controller-Atompub
-version: 0.2.1
+version: 0.2.2
 author:
   - 'Takeru INOUE <takeru.inoue _ gmail.com>'
@@ -26 +26 @@
   Catalyst::Controller::Atompub:
     file: lib/Catalyst/Controller/Atompub.pm
-    version: 0.2.1
+    version: 0.2.2
   Catalyst::Controller::Atompub::Base:
     file: lib/Catalyst/Controller/Atompub/Base.pm

lang/perl/Catalyst-Controller-Atompub/tags/0.2.2/lib/Catalyst/Controller/Atompub.pm

@@ -5 +5 @@
 use Carp;
 
-use version; our $VERSION = qv('0.2.1');
+use version; our $VERSION = qv('0.2.2');
 
 use Atompub 0.1.6;

lang/perl/Catalyst-Controller-Atompub/tags/0.2.2/lib/Catalyst/Controller/Atompub/Collection.pm

@@ -449 +449 @@
 
     my $match = $method eq 'GET' ? $c->req->if_none_match : $c->req->if_match;
+    $match =~ s/^['"](.+)['"]$/$1/; #" unquote
 
     return 1 if defined $etag && ( ! defined $match || $etag ne $match );

lang/perl/Catalyst-Controller-Atompub/trunk/Changes

@@ +1 @@
+2007-11-29  Takeru INOUE  <takeru.inoue _ gmail.com>
+
+        * release 0.2.2:
+        * Catalyst/Controller/Atompub/Collection
+        - unquote If-Match/If-None-Match values
+          thanks Marumoto
+
 2007-11-19  Takeru INOUE  <takeru.inoue _ gmail.com>
 

lang/perl/Catalyst-Controller-Atompub/trunk/META.yml

@@ -1 +1 @@
 ---
 name: Catalyst-Controller-Atompub
-version: 0.2.1
+version: 0.2.2
 author:
   - 'Takeru INOUE <takeru.inoue _ gmail.com>'
@@ -26 +26 @@
   Catalyst::Controller::Atompub:
     file: lib/Catalyst/Controller/Atompub.pm
-    version: 0.2.1
+    version: 0.2.2
   Catalyst::Controller::Atompub::Base:
     file: lib/Catalyst/Controller/Atompub/Base.pm

lang/perl/Catalyst-Controller-Atompub/trunk/lib/Catalyst/Controller/Atompub.pm

@@ -5 +5 @@
 use Carp;
 
-use version; our $VERSION = qv('0.2.1');
+use version; our $VERSION = qv('0.2.2');
 
 use Atompub 0.1.6;

lang/perl/Catalyst-Controller-Atompub/trunk/lib/Catalyst/Controller/Atompub/Collection.pm

@@ -449 +449 @@
 
     my $match = $method eq 'GET' ? $c->req->if_none_match : $c->req->if_match;
+    $match =~ s/^['"](.+)['"]$/$1/; #" unquote
 
     return 1 if defined $etag && ( ! defined $match || $etag ne $match );