Changeset 13941

Timestamp:

06/14/08 17:35:49 (5 years ago)

Author:

tokuhirom

Message:

r3725@gp (orig r375): tokuhiro | 2007-07-16 21:28:41 +0900
released S::P::Captcha 0.02.

Location:

lang/perl/Sledge-Plugin-Captcha/trunk

Files:

• Changes (modified) (1 diff)
• lib/Sledge/Plugin/Captcha.pm (modified) (2 diffs)
• t/01.base.t (modified) (1 diff)

lang/perl/Sledge-Plugin-Captcha/trunk/Changes

@@ -1 +1 @@
 Revision history for Sledge-Plugin-Captcha
+
+0.0.2  Thu Mar 15 10:52:08 JST 2007
+       oops. fixed invalid Content-Type header.
+       jpeg => image/jpeg.
 
 0.0.1  Fri Jan  5 10:46:27 2007

lang/perl/Sledge-Plugin-Captcha/trunk/lib/Sledge/Plugin/Captcha.pm

@@ -3 +3 @@
 use warnings;
 use Carp;
-our $VERSION = 0.01;
+our $VERSION = 0.02;
 use GD::SecurityImage;
 
@@ -45 +45 @@
             = $captcha->out( %{ $self->create_config->captcha->{out} } );
         $self->session->param( $self->create_config->captcha->{session_name} => $captcha_string );
-        $self->show_image( $image => $mime_type );
+        $self->show_image( $image => "image/$mime_type" );
     };
 }

lang/perl/Sledge-Plugin-Captcha/trunk/t/01.base.t

@@ -21 +21 @@
     my $page = t::TestPages->new;
     $page->dispatch('foo');
-    like($page->output, qr{Content-Type: jpeg}, 'image output');
+    like($page->output, qr{Content-Type: image/jpeg}, 'image output');
     like($page->output, qr{JFIF}, 'image');
 };