Author: joes
Date: Tue Jan 13 08:22:44 2009
New Revision: 734170
URL: http://svn.apache.org/viewvc?rev=734170&view=rev
Log:
fix update_version.pl script
Modified:
httpd/apreq/trunk/build/update_version.pl
httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm
httpd/apreq/trunk/glue/perl/lib/Apache2/Request.pm
httpd/apreq/trunk/glue/perl/lib/Apache2/Upload.pm
Modified: httpd/apreq/trunk/build/update_version.pl
URL:
http://svn.apache.org/viewvc/httpd/apreq/trunk/build/update_version.pl?rev=734170&r1=734169&r2=734170&view=diff
==============================================================================
--- httpd/apreq/trunk/build/update_version.pl (original)
+++ httpd/apreq/trunk/build/update_version.pl Tue Jan 13 08:22:44 2009
@@ -28,7 +28,7 @@
find(sub { push @pm, $File::Find::name if /\.pm$/ },
qw(glue/perl/lib/Apache2));
-my $pattern = '(?<=our $VERSION = ")([^"]+)(?=")';
+my $pattern = '(?<=our \$VERSION = ")([^"]+)(?=")';
system "perl -i -ple 's/$pattern/$version/' @pm";
#
Modified: httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm
URL:
http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm?rev=734170&r1=734169&r2=734170&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm (original)
+++ httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm Tue Jan 13 08:22:44 2009
@@ -9,7 +9,7 @@
use overload '""' => sub { shift->as_string() }, fallback => 1;
push our @ISA, "APR::Request::Cookie";
-our $VERSION = "2.08";
+our $VERSION = "2.11";
sub new {
my ($class, $r, %attrs) = @_;
Modified: httpd/apreq/trunk/glue/perl/lib/Apache2/Request.pm
URL:
http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/lib/Apache2/Request.pm?rev=734170&r1=734169&r2=734170&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/lib/Apache2/Request.pm (original)
+++ httpd/apreq/trunk/glue/perl/lib/Apache2/Request.pm Tue Jan 13 08:22:44 2009
@@ -3,7 +3,7 @@
use APR::Request::Apache2;
use Apache2::RequestRec;
push our @ISA, qw/Apache2::RequestRec APR::Request::Apache2/;
-our $VERSION = "2.08";
+our $VERSION = "2.11";
my %old_limits = (
post_max => "read_limit",
Modified: httpd/apreq/trunk/glue/perl/lib/Apache2/Upload.pm
URL:
http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/lib/Apache2/Upload.pm?rev=734170&r1=734169&r2=734170&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/lib/Apache2/Upload.pm (original)
+++ httpd/apreq/trunk/glue/perl/lib/Apache2/Upload.pm Tue Jan 13 08:22:44 2009
@@ -1,7 +1,7 @@
package Apache2::Upload;
use Apache2::Request;
push our @ISA, qw/APR::Request::Param/;
-our $VERSION = "2.08";
+our $VERSION = "2.11";
no strict 'refs';
for (qw/slurp type size link tempname fh io filename/) {
*{$_} = *{"APR::Request::Param::upload_$_"}{CODE};
