--- librest-application-perl-0.992.orig/debian/compat +++ librest-application-perl-0.992/debian/compat @@ -0,0 +1 @@ +5 --- librest-application-perl-0.992.orig/debian/copyright +++ librest-application-perl-0.992/debian/copyright @@ -0,0 +1,23 @@ +This is the debian package for the REST-Application module. +It was created by Frank Lichtenheld using dh-make-perl. + +It was downloaded from http://search.cpan.org/dist/REST-Application/ + +The upstream author is: + +Matthew O'Connor . + +Copyright: + +Copyright 2005 Matthew O'Connor + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +See /usr/share/common-licenses/GPL and +/usr/share/common-licenses/Artistic for the basic licenses Perl is +based on, and /usr/share/doc/perl/copyright for the license for +Perl itself. + +The Debian packaging is (C) 2008, Frank Lichtenheld and +is licensed under the same terms as the software itself (see above). --- librest-application-perl-0.992.orig/debian/rules +++ librest-application-perl-0.992/debian/rules @@ -0,0 +1,78 @@ +#!/usr/bin/make -f +# This debian/rules file is provided as a template for normal perl +# packages. It was created by Marc Brockschmidt for +# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may +# be used freely wherever it is useful. + +# Uncomment this to turn on verbose mode. +#export DH_VERBOSE=1 + +# If set to a true value then MakeMaker's prompt function will +# always return the default without waiting for user input. +export PERL_MM_USE_DEFAULT=1 + +include /usr/share/quilt/quilt.make + +PACKAGE=$(shell dh_listpackages) + +ifndef PERL +PERL = /usr/bin/perl +endif + +TMP =$(CURDIR)/debian/$(PACKAGE) + +build: build-stamp +build-stamp: $(QUILT_STAMPFN) + dh_testdir + + # Add commands to compile the package here + $(PERL) Makefile.PL INSTALLDIRS=vendor + $(MAKE) + $(MAKE) test + + touch $@ + +clean: unpatch + dh_testdir + dh_testroot + + dh_clean build-stamp install-stamp + + # Add commands to clean up after the build process here + [ ! -f Makefile ] || $(MAKE) realclean + +install: install-stamp +install-stamp: build-stamp + dh_testdir + dh_testroot + dh_clean -k + + # Add commands to install the package into $(TMP) here + $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr + + [ ! -d $(TMP)/usr/lib/perl5 ] || rmdir --ignore-fail-on-non-empty --parents --verbose $(TMP)/usr/lib/perl5 + + touch $@ + +binary-arch: +# We have nothing to do here for an architecture-independent package + +binary-indep: build install + dh_testdir + dh_testroot + dh_installexamples + dh_installdocs + dh_installchangelogs + dh_perl + dh_compress + dh_fixperms + dh_installdeb + dh_gencontrol + dh_md5sums + dh_builddeb + +source diff: + @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary --- librest-application-perl-0.992.orig/debian/watch +++ librest-application-perl-0.992/debian/watch @@ -0,0 +1,3 @@ +# format version number, currently 3; this line is compulsory! +version=3 +http://search.cpan.org/dist/REST-Application/ .*/REST-Application-v?(\d[\d_.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ --- librest-application-perl-0.992.orig/debian/changelog +++ librest-application-perl-0.992/debian/changelog @@ -0,0 +1,16 @@ +librest-application-perl (0.992-2) unstable; urgency=low + + * Use quilt. + * New patches: + + perldoc_fixes: fix several syntax problems in POD and + some typos. Reported upstream as RT#36414. + + header_additive: Fix header() to act according to documentation + when called more than once. Reported upstream as RT#36402. + + -- Frank Lichtenheld Tue, 03 Jun 2008 23:02:41 +0200 + +librest-application-perl (0.992-1) unstable; urgency=low + + * Initial Release. (Closes: #464182) + + -- Frank Lichtenheld Tue, 05 Feb 2008 17:08:46 +0100 --- librest-application-perl-0.992.orig/debian/control +++ librest-application-perl-0.992/debian/control @@ -0,0 +1,18 @@ +Source: librest-application-perl +Section: perl +Priority: optional +Build-Depends: debhelper (>= 5.0.0), quilt +Build-Depends-Indep: perl (>= 5.8.8-12), libtie-ixhash-perl +Maintainer: Debian Perl Group +Uploaders: Frank Lichtenheld +Standards-Version: 3.7.3 +Homepage: http://search.cpan.org/dist/REST-Application/ +Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/librest-application-perl/ +Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/librest-application-perl/ + +Package: librest-application-perl +Architecture: all +Depends: ${perl:Depends}, ${misc:Depends}, libtie-ixhash-perl +Description: framework for building RESTful web-applications + Module that acts as a base class for applications which implement a RESTful + interface, similar to CGI::Application. --- librest-application-perl-0.992.orig/debian/patches/header_additive +++ librest-application-perl-0.992/debian/patches/header_additive @@ -0,0 +1,32 @@ +Index: librest-application-perl/lib/REST/Application.pm +=================================================================== +--- librest-application-perl.orig/lib/REST/Application.pm 2008-06-03 23:16:33.000000000 +0200 ++++ librest-application-perl/lib/REST/Application.pm 2008-06-03 23:24:45.000000000 +0200 +@@ -305,9 +305,9 @@ + # Arguments can be passed in as a hash-ref or as an even sized list. + if (@_) { + if (@_%2 == 0) { # even-sized list, must be hash +- %{ $self->{__header} } = @_; ++ %{ $self->{__header} } = ( %{$self->{__header}}, @_ ); + } elsif (ref($_[0]) eq 'HASH') { # First item must be a hash reference +- $self->{__header} = shift; ++ %{ $self->{__header} } = ( %{$self->{__header}}, %{$_[0]} ); + } else { + croak "Expected even-sized list or hash reference."; + } +Index: librest-application-perl/t/01-basic.t +=================================================================== +--- librest-application-perl.orig/t/01-basic.t 2008-06-03 23:18:09.000000000 +0200 ++++ librest-application-perl/t/01-basic.t 2008-06-03 23:18:50.000000000 +0200 +@@ -283,8 +283,10 @@ + my %hash = $rest->header(); + is_deeply(\%hash, {}, "Retrieving default header values."); + $rest->header(-type => 'text/html', -foobar => 5); ++ $rest->header(-baz => 10); + %hash = $rest->header(); +- is_deeply(\%hash, {-type => 'text/html', -foobar => 5}, "Retrieving custom header values."); ++ is_deeply(\%hash, {-type => 'text/html', -foobar => 5, -baz => 10}, ++ "Retrieving custom header values."); + } + + # TEST: resetHeader() --- librest-application-perl-0.992.orig/debian/patches/perldoc_fixes +++ librest-application-perl-0.992/debian/patches/perldoc_fixes @@ -0,0 +1,69 @@ +Index: librest-application-perl/lib/REST/Application.pm +=================================================================== +--- librest-application-perl.orig/lib/REST/Application.pm 2008-06-03 23:02:19.000000000 +0200 ++++ librest-application-perl/lib/REST/Application.pm 2008-06-03 23:05:59.000000000 +0200 +@@ -514,7 +514,7 @@ + + =head1 SYNOPSIS + +- # MyRESTApp L instance / mod_perl handler ++ # MyRESTApp REST::Application instance / mod_perl handler + package MyRESTApp; + use Apache; + use Apache::Constants qw(:common); +@@ -642,6 +642,8 @@ + string. Optionally the handler should set any header information via the + C method on instance object pased in. + ++=back ++ + =head1 CALLING ORDER + + The L base class provides a good number of methods, each of +@@ -701,8 +703,6 @@ + HTTP request rather than just the path info you'd merely overload + C to return the URI rather than the path info. + +-=back +- + =head1 METHODS + + =head2 new(%args) +@@ -819,7 +819,7 @@ + + =head2 sendRepresentation($representation) + +-This method just returns C<$representation>. It is provided soely for ++This method just returns C<$representation>. It is provided solely for + overloading purposes. + + =head2 headerType([$type]) +@@ -835,8 +835,8 @@ + keys are the header fields and the values are the header field values. + + If this method is called multiple times then the values of %args are additive. +-So calling C<$self->header(-type => "text/html")> and C<$self->header(-foo => +-"bar")> results in both the content-type header being set and the "foo" header ++So calling C<$self-Eheader(-type =E 'text/html')> and C<$self-Eheader(-foo =E ++'bar')> results in both the content-type header being set and the "foo" header + being set. + + =head2 resetHeader() +@@ -854,7 +854,7 @@ + + Given a list of MIME types this function returns the best matching type + considering the Accept header of the current request (as returned by +-C. ++C). + + =head2 simpleContentNegotiation(@types) + +@@ -906,7 +906,7 @@ + + =head1 AUTHORS + +-Matthew O'Connor Ematthew@canonical.org ++Matthew O'Connor Ematthew@canonical.orgE + + =head1 LICENSE + --- librest-application-perl-0.992.orig/debian/patches/series +++ librest-application-perl-0.992/debian/patches/series @@ -0,0 +1,2 @@ +header_additive +perldoc_fixes