--- libsys-utmp-perl-1.6.orig/debian/copyright
+++ libsys-utmp-perl-1.6/debian/copyright
@@ -0,0 +1,18 @@
+This is a Debian prepackaged version of the Sys::Utmp perl module.
+
+This package was put together by Joey Hess <joeyh@debian.org>, using
+sources from the CPAN.
+
+The following copyright applies to this package:
+
+  Copyright Netscalibur UK 2001.
+  Copyright Jonathan Stowe 2001.
+
+  This software carries no warranty either express or implied.
+
+  This is free software it can be copied and/or modified under the same terms
+  as perl itself.
+
+Perl, and thus this software, is dual licensed under the Artistic and GPL
+licences. The complete text to both can be found in
+/usr/share/common-licenses/
--- libsys-utmp-perl-1.6.orig/debian/changelog
+++ libsys-utmp-perl-1.6/debian/changelog
@@ -0,0 +1,57 @@
+libsys-utmp-perl (1.6-4.5.201403271809) ucs4-0-0-0; urgency=low
+
+  * UCS auto build. No patches were applied to the original source package
+
+ -- Univention builddaemon <buildd@univention.de>  Thu, 27 Mar 2014 18:09:03 +0100
+
+libsys-utmp-perl (1.6-4) unstable; urgency=low
+
+  * Now maintained by the Debian perl group.
+
+ -- Joey Hess <joeyh@debian.org>  Mon, 30 Jul 2007 01:22:56 -0400
+
+libsys-utmp-perl (1.6-3) unstable; urgency=low
+
+  * Fix the test suite to not die if the utmp file is empty.
+    Closes: #394618
+
+ -- Joey Hess <joeyh@debian.org>  Tue, 24 Oct 2006 12:31:48 -0400
+
+libsys-utmp-perl (1.6-2) unstable; urgency=low
+
+  * The test suite depends on the system having a utmp file, and since utmp
+    files are IIRC not portable across arches, it's not easy to include a demo
+    one for the tests to run against. Instead, if the utmp file is not
+    present, skip the test suite. Closes: #394618
+
+ -- Joey Hess <joeyh@debian.org>  Sun, 22 Oct 2006 15:16:41 -0400
+
+libsys-utmp-perl (1.6-1) unstable; urgency=low
+
+  * New upstream release.
+
+ -- Joey Hess <joeyh@debian.org>  Sun, 22 Oct 2006 00:53:24 -0400
+
+libsys-utmp-perl (1.5-4) unstable; urgency=low
+
+  * Update to current stadands-version.
+
+ -- Joey Hess <joeyh@debian.org>  Sat, 23 Jul 2005 19:34:31 -0400
+
+libsys-utmp-perl (1.5-3) unstable; urgency=low
+
+  * Built for perl 5.8.
+
+ -- Joey Hess <joeyh@debian.org>  Wed, 31 Jul 2002 02:42:19 +0000
+
+libsys-utmp-perl (1.5-2) unstable; urgency=low
+
+  * Debhelper v4. Fixed dpkg-dev build-dep.
+
+ -- Joey Hess <joeyh@debian.org>  Mon, 29 Jul 2002 19:05:43 +0000
+
+libsys-utmp-perl (1.5-1) unstable; urgency=low
+
+  * Initial Release.
+
+ -- Joey Hess <joeyh@debian.org>  Tue, 12 Feb 2002 20:49:36 -0500
--- libsys-utmp-perl-1.6.orig/debian/compat
+++ libsys-utmp-perl-1.6/debian/compat
@@ -0,0 +1 @@
+5
--- libsys-utmp-perl-1.6.orig/debian/rules
+++ libsys-utmp-perl-1.6/debian/rules
@@ -0,0 +1,49 @@
+#!/usr/bin/make -f
+
+OPTIMIZE = -O2 -Wall -g
+
+build: build-stamp
+build-stamp:
+	dh_testdir
+	
+	perl Makefile.PL INSTALLDIRS=vendor
+	$(MAKE) OPTIMIZE="$(OPTIMIZE)"
+	if [ -e /var/run/utmp ]; then \
+		$(MAKE) test; \
+	fi
+	touch build-stamp
+
+clean:
+	dh_testdir
+	dh_testroot
+	rm -f build-stamp
+	if [ -e Makefile ]; then $(MAKE) realclean; fi
+	dh_clean
+
+install: 
+	dh_testdir
+	dh_testroot
+	dh_clean -k
+	dh_installdirs
+	$(MAKE) install PREFIX=`pwd`/debian/libsys-utmp-perl/usr
+
+binary-indep: build install
+
+binary-arch: build install
+	dh_testdir
+	dh_testroot
+	dh_installdocs
+	dh_installexamples examples/pwho
+	dh_installchangelogs Changes
+	dh_strip
+	dh_compress
+	dh_fixperms
+	dh_installdeb
+	dh_perl 
+	dh_shlibdeps
+	dh_gencontrol
+	dh_md5sums
+	dh_builddeb
+
+binary: binary-indep binary-arch
+.PHONY: build clean binary-indep binary-arch binary
--- libsys-utmp-perl-1.6.orig/debian/control
+++ libsys-utmp-perl-1.6/debian/control
@@ -0,0 +1,16 @@
+Source: libsys-utmp-perl
+Section: perl
+Priority: optional
+Build-Depends: debhelper (>= 5), perl (>= 5.8), dpkg-dev (>= 1.9.0)
+Maintainer: Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org>
+Uploaders: Joey Hess <joeyh@debian.org>
+Standards-Version: 3.7.2
+XS-Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libsys-utmp-perl
+
+Package: libsys-utmp-perl
+Architecture: any
+Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends}
+Description: perl module to query UTMP files
+ Sys::Utmp provides a vaguely object oriented interface to the Unix user
+ accounting file /var/run/utmp, and other files of similar format. It can
+ only be used to query the contents of the file, and cannot modify it.
--- libsys-utmp-perl-1.6.orig/debian/watch
+++ libsys-utmp-perl-1.6/debian/watch
@@ -0,0 +1,2 @@
+version=2
+http://search.cpan.org/search?dist=Sys-Utmp .*/Sys-Utmp-(.*).tar.gz
--- libsys-utmp-perl-1.6.orig/t/08utent_types.t
+++ libsys-utmp-perl-1.6/t/08utent_types.t
@@ -6,13 +6,16 @@
 my $utmp = Sys::Utmp->new();
 my $utent = $utmp->getutent();
 
-ok(defined $utent->accounting(),"accounting");
-ok(defined $utent->boot_time(),"boot_time");
-ok(defined $utent->dead_process(),"dead_process");
-ok(defined $utent->empty(),"empty");
-ok(defined $utent->init_process(),"init_process");
-ok(defined $utent->login_process(),"login_process");
-ok(defined $utent->new_time(),"new_time");
-ok(defined $utent->old_time(),"old_time");
-ok(defined $utent->run_lvl(),"run_lvl");
-ok(defined $utent->user_process(),"user_process");
+SKIP: {
+	skip "no utmp entries", 10 if ! $utent;
+	ok(defined $utent->accounting(),"accounting");
+	ok(defined $utent->boot_time(),"boot_time");
+	ok(defined $utent->dead_process(),"dead_process");
+	ok(defined $utent->empty(),"empty");
+	ok(defined $utent->init_process(),"init_process");
+	ok(defined $utent->login_process(),"login_process");
+	ok(defined $utent->new_time(),"new_time");
+	ok(defined $utent->old_time(),"old_time");
+	ok(defined $utent->run_lvl(),"run_lvl");
+	ok(defined $utent->user_process(),"user_process");
+}
--- libsys-utmp-perl-1.6.orig/t/06taint.t
+++ libsys-utmp-perl-1.6/t/06taint.t
@@ -23,5 +23,8 @@
  
 my $utent =  $utmp->getutent();
 
-ok(tainted($utent->ut_user()),"ut_user is tainted");
-ok(tainted($utent->ut_host()),"ut_host is tainted");
+SKIP: {
+	skip "no utmp entries", 2 if ! $utent;
+	ok(tainted($utent->ut_user()),"ut_user is tainted");
+	ok(tainted($utent->ut_host()),"ut_host is tainted");
+}
--- libsys-utmp-perl-1.6.orig/t/07utent_methods.t
+++ libsys-utmp-perl-1.6/t/07utent_methods.t
@@ -7,10 +7,13 @@
 
 my $utent = $utmp->getutent();
 
-ok(defined $utent->ut_user(),"ut_user");
-ok(defined $utent->ut_id(),"ut_id");
-ok(defined $utent->ut_line(),"ut_line");
-ok(defined $utent->ut_pid(),"ut_pid");
-ok(defined $utent->ut_type(),"ut_type");
-ok(defined $utent->ut_host(),"ut_host");
-ok(defined $utent->ut_time(),"ut_time");
+SKIP: {
+	skip "no utmp entries", 7 if ! $utent;
+	ok(defined $utent->ut_user(),"ut_user");
+	ok(defined $utent->ut_id(),"ut_id");
+	ok(defined $utent->ut_line(),"ut_line");
+	ok(defined $utent->ut_pid(),"ut_pid");
+	ok(defined $utent->ut_type(),"ut_type");
+	ok(defined $utent->ut_host(),"ut_host");
+	ok(defined $utent->ut_time(),"ut_time");
+}
