--- libapache-admin-config-perl-0.94.orig/debian/control
+++ libapache-admin-config-perl-0.94/debian/control
@@ -0,0 +1,26 @@
+Source: libapache-admin-config-perl
+Section: perl
+Priority: optional
+Maintainer: Raphaël Pinson <raphink@ubuntu.com>
+Build-Depends: cdbs, debhelper (>= 5)
+Build-Depends-Indep: perl
+Standards-Version: 3.7.2
+
+Package: libapache-admin-config-perl
+Architecture: all
+Depends: ${perl:Depends}
+Description: a Perl module to read/write Apache like configuration files
+ Apache::Admin::Config provides an object oriented interface to read and write
+ Apache configuration files without affecting comments, indentation, or
+ truncated lines.
+ .
+ You can easily extract information from Apache configuration files, or manage
+ htaccess files.  An advantage over Apache::ConfigFile is that you can modify
+ configuration files on disk, and generate new ones.
+ .
+ The class was specifically written for a hosting provider, where it is used
+ to add new clients, activate features, (un)lock directories using htaccess,
+ etc.  It can also come in handy for writing a one-shot migration script in a
+ few lines.
+ .
+  Homepage: http://search.cpan.org/dist/Apache-Admin-Config/
--- libapache-admin-config-perl-0.94.orig/debian/compat
+++ libapache-admin-config-perl-0.94/debian/compat
@@ -0,0 +1 @@
+5
--- libapache-admin-config-perl-0.94.orig/debian/rules
+++ libapache-admin-config-perl-0.94/debian/rules
@@ -0,0 +1,5 @@
+#!/usr/bin/make -f
+
+include /usr/share/cdbs/1/rules/debhelper.mk
+include /usr/share/cdbs/1/class/perlmodule.mk
+include /usr/share/cdbs/1/rules/simple-patchsys.mk
--- libapache-admin-config-perl-0.94.orig/debian/copyright
+++ libapache-admin-config-perl-0.94/debian/copyright
@@ -0,0 +1,29 @@
+This package was debianized by Raphaël Pinson <raphink@ubuntu.com> on
+Thu, 10 Aug 2006 14:38:00 +0200.
+
+It was downloaded from http://search.cpan.org/dist/Apache-Admin-Config/
+
+Upstream Author: 
+  Olivier Poitrey <rs@rhapsodyk.net>
+
+Copyright: 
+  Copyright (C) 2001 - Olivier Poitrey
+
+License:
+
+    This library is free software; you can redistribute it and/or modify it
+    under the terms of the GNU Lesser General Public License as published by
+    the Free Software Foundation; either version 2.1 of the License, or (at
+    your option) any later version.
+
+    This library is distributed in the hope that it will be useful, but
+    WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser
+    General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public License
+    along with this package; if not, write to the Free Software Foundation,
+    Inc., 51 Franklin St, Fifth Floor, Boston, N: MA 02110-1301, USA.
+
+  On Debian systems, the complete text of the GNU Lesser General
+  Public License can be found in `/usr/share/common-licenses/LGPL'.
--- libapache-admin-config-perl-0.94.orig/debian/watch
+++ libapache-admin-config-perl-0.94/debian/watch
@@ -0,0 +1,3 @@
+version=3
+http://search.cpan.org/dist/Apache-Admin-Config/ \
+  .*/Apache-Admin-Config-(.*)\.tar\.gz
--- libapache-admin-config-perl-0.94.orig/debian/changelog
+++ libapache-admin-config-perl-0.94/debian/changelog
@@ -0,0 +1,14 @@
+libapache-admin-config-perl (0.94-1.1) unstable; urgency=low
+
+  * Non-maintainer upload.
+  * Apply patch by Niko Tyni to fix FTBFS with perl 5.10
+    (Closes: #467122)
+
+ -- Frank Lichtenheld <djpig@debian.org>  Wed, 09 Jul 2008 20:56:04 +0200
+
+libapache-admin-config-perl (0.94-1) unstable; urgency=low
+
+  * Initial release (Closes: #382381)
+
+ -- Raphaël Pinson <raphink@ubuntu.com>  Thu, 10 Aug 2006 14:38:00 +0200
+
--- libapache-admin-config-perl-0.94.orig/lib/Apache/Admin/Config.pm
+++ libapache-admin-config-perl-0.94/lib/Apache/Admin/Config.pm
@@ -227,7 +227,8 @@
 use strict;
 use Carp;
 use FileHandle;
-use overload nomethod => \&to_string;
+use overload cmp => \&cmp_string, '<=>' => \&spaceship_number,
+             nomethod => \&to_string;
 
 
 sub new
@@ -1228,47 +1229,25 @@
     }
 }
 
+sub cmp_string
+{
+    my ($self, $other, $inv) = @_;
+    return $inv ? ($other cmp $self->{value}) :
+                  ($self->{value} cmp $other);
+}
+
+sub spaceship_number
+{
+    my ($self, $other, $inv) = @_;
+    return $inv ? ($other <=> $self->{value}) :
+                  ($self->{value} <=> $other);
+}
+
 sub to_string
 {
     my($self, $other, $inv, $meth) = @_;
 
-    if($meth eq 'eq')
-    {
-        if($^W and (!defined $other or !defined $self->{value}))
-        {
-            carp "Use of uninitialized value in string eq";
-        }
-        local $^W;
-        return($other ne $self->{value});
-    }
-    elsif($meth eq 'ne')
-    {
-        if($^W and (!defined $other or !defined $self->{value}))
-        {
-            carp "Use of uninitialized value in string ne";
-        }
-        local $^W;
-        return($other ne $self->{value});
-    }
-    elsif($meth eq '==')
-    {
-        if($^W and (!defined $other or !defined $self->{value}))
-        {
-            carp "Use of uninitialized value in numeric eq (==)";
-        }
-        local $^W;
-        return($other != $self->{value});
-    }
-    elsif($meth eq '!=')
-    {
-        if($^W and (!defined $other or !defined $self->{value}))
-        {
-            carp "Use of uninitialized value in numeric ne (!=)";
-        }
-        local $^W;
-        return($other != $self->{value});
-    }
-    elsif(!defined $self->{value})
+    if(!defined $self->{value})
     {
         return overload::StrVal($self);
     }