Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: zag/p5-HTTP-Server-Simple-WebDAO
base: c6816bb7a8
...
head fork: zag/p5-HTTP-Server-Simple-WebDAO
compare: fa691174d5
Checking mergeability… Don't worry, you can still create the pull request.
  • 3 commits
  • 3 files changed
  • 0 commit comments
  • 1 contributor
Commits on Feb 26, 2012
zag new ver c2026e6
zag fix codes map 3f27c5e
zag fix codes map fa69117
Showing with 6 additions and 4 deletions.
  1. +1 −1  Build.PL
  2. +2 −0  Changes
  3. +3 −3 lib/HTTP/Server/Simple/WebDAO.pm
View
2  Build.PL
@@ -5,7 +5,7 @@ Module::Build->new
license => 'perl',
prereq => {
'HTTP::Server::Simple'=>0.44,
- 'WebDAO'=>2.0
+ 'WebDAO'=>2.1
},
dist_version_from=>'lib/HTTP/Server/Simple/WebDAO.pm',
dist_author=>'Zahatski Aliaksandr zag@cpan.org',
View
2  Changes
@@ -1,4 +1,6 @@
Revision history for Perl extension HTTP::Server::Simple::WebDAO.
+0.03 26 Feb 2012
+ + use WebDAO::Util for http codes
0.02 26 Feb 2012
+ use WebDAO 2.0
0.01
View
6 lib/HTTP/Server/Simple/WebDAO.pm
@@ -4,14 +4,13 @@ use strict;
use warnings;
use HTTP::Server::Simple::CGI;
use base qw/HTTP::Server::Simple::CGI/;
-use v5.10;
use WebDAO;
use WebDAO::Util;
use WebDAO::Engine;
use WebDAO::Session;
use WebDAO::Store::Abstract;
use vars qw($VERSION);
-$VERSION = '0.01';
+$VERSION = '0.03';
=head1 NAME
@@ -98,6 +97,7 @@ package HTTP::Server::Simple::WebDAO::CVcgi;
use strict;
use warnings;
use WebDAO::CVfcgi;
+use WebDAO::Util;
use base qw/WebDAO::CVfcgi/;
sub new {
my $class = shift;
@@ -105,7 +105,7 @@ sub new {
my $code = $_[0]->[0];
my $headers_ref = $_[0]->[1];
my $fd = new WebDAO::Fcgi::Writer:: headers=>$headers_ref;
- my $message = $WebDAO::CVfcgi::StatusCode{$code};
+ my $message = $WebDAO::Util::HTTPStatusCode{$code};
my $header_str= "HTTP/1.0 $code $message\015\012";
while ( my ($header, $value) = splice( @$headers_ref, 0, 2) ) {
$header_str .= "$header: $value\015\012"

No commit comments for this range

Something went wrong with that request. Please try again.