--- libperlio-via-dynamic-perl-0.12.orig/debian/copyright +++ libperlio-via-dynamic-perl-0.12/debian/copyright @@ -0,0 +1,20 @@ +This is the debian package for the PerlIO-via-dynamic module. + +It was downloaded from the Comprehensive Perl Archive Network (CPAN). +Visit to find a CPAN site near you. + +The upstream author is: + +Chia-liang Kao . + +Copyright 2004 by Chia-liang Kao . + +This program is free software; you can redistribute it and/or modify it +under the same terms as Perl itself. + +See http://www.perl.com/perl/misc/Artistic.html + +Perl is distributed under your choice of the GNU General Public License or +the Artistic License. On Debian GNU/Linux systems, the complete text of the +GNU General Public License can be found in `/usr/share/common-licenses/GPL' +and the Artistic Licence in `/usr/share/common-licenses/Artistic'. --- libperlio-via-dynamic-perl-0.12.orig/debian/changelog +++ libperlio-via-dynamic-perl-0.12/debian/changelog @@ -0,0 +1,26 @@ +libperlio-via-dynamic-perl (0.12-1) unstable; urgency=low + + * New upstream version. + * Use external orig. + + -- Bastian Blank Sun, 20 Apr 2008 21:33:59 +0200 + +libperlio-via-dynamic-perl (0.11-1.1) unstable; urgency=low + + * Non-maintainer upload. + * Fix FTBFS with Perl 5.10. Closes: #467850 + + -- Mark Hymers Sat, 05 Apr 2008 21:09:06 +0100 + +libperlio-via-dynamic-perl (0.11-1) unstable; urgency=low + + * New usptream version. + + -- Bastian Blank Fri, 24 Sep 2004 12:28:26 +0200 + +libperlio-via-dynamic-perl (0.02-1) unstable; urgency=low + + * Initial Release. + + -- Bastian Blank Sun, 4 Apr 2004 00:09:22 +0200 + --- libperlio-via-dynamic-perl-0.12.orig/debian/watch +++ libperlio-via-dynamic-perl-0.12/debian/watch @@ -0,0 +1,2 @@ +version=3 +http://www.cpan.org/pub/CPAN/authors/id/C/CL/CLKAO/PerlIO-via-dynamic-(.*)\.tar.gz --- libperlio-via-dynamic-perl-0.12.orig/debian/control +++ libperlio-via-dynamic-perl-0.12/debian/control @@ -0,0 +1,24 @@ +Source: libperlio-via-dynamic-perl +Section: perl +Priority: optional +Build-Depends: debhelper (>= 4.0.2) +Build-Depends-Indep: perl (>= 5.8.0-7) +Maintainer: Bastian Blank +Standards-Version: 3.6.1 + +Package: libperlio-via-dynamic-perl +Architecture: all +Depends: ${perl:Depends}, ${misc:Depends}, +Description: dynamic PerlIO layers + PerlIO::via::dynamic is used for creating dynamic PerlIO layers. It is + useful when the behavior or the layer depends on variables. You should + not use this module as via layer directly (ie :via(dynamic)). + . + Use the constructor to create new layers, with two arguments: + translate and untranslate. Then use $p->via ($fh) to wrap the + handle. + . + Note that PerlIO::via::dynamic uses the scalar fields to reference to + the object representing the dynamic namespace. If you + . + This description was automagically extracted from the module by dh-make-perl. --- libperlio-via-dynamic-perl-0.12.orig/debian/rules +++ libperlio-via-dynamic-perl-0.12/debian/rules @@ -0,0 +1,89 @@ +#!/usr/bin/make -f + +SOURCE := $(shell dpkg-parsechangelog | sed -ne 's,^Source: *\(.*\)$$,\1,p') +VERSION_DEBIAN := $(shell dpkg-parsechangelog | sed -ne 's,^Version: *\(.*\)$$,\1,p') +VERSION := $(shell echo "$(VERSION_DEBIAN)" | sed -e 's,^[0-9]*:,,' -e 's,-[^-]*$$,,') + +# 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 + +PACKAGE = $(shell dh_listpackages) + +ifndef PERL +PERL = /usr/bin/perl +endif + +TMP = $(CURDIR)/debian/$(PACKAGE) + +build: build-stamp +build-stamp: + dh_testdir + + $(PERL) Makefile.PL INSTALLDIRS=vendor + $(MAKE) + + touch $@ + +clean: + dh_testdir + rm -f build-stamp + + -$(MAKE) distclean + + dh_clean + +install: build + dh_testdir + dh_testroot + dh_clean -k + + $(MAKE) test + $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr + + [ ! -d $(TMP)/usr/lib/perl5 ] || rmdir --ignore-fail-on-non-empty --parents $(TMP)/usr/lib/perl5 + +# Build architecture-dependent files here. +binary-arch: build install +# We have nothing to do by default. + +# Build architecture-independent files here. +binary-indep: build install + dh_testdir + dh_testroot +# dh_installcron +# dh_installmenu +# dh_installexamples + dh_installdocs README + dh_installchangelogs CHANGES + dh_perl + dh_link + dh_strip + dh_compress + dh_fixperms + dh_installdeb + dh_gencontrol + dh_md5sums + dh_builddeb + +binary: binary-indep binary-arch + +maintainerclean: + rm -rf $(filter-out .svn .svk debian, $(wildcard * .[^.]*)) + +DIR_ORIG = ../orig/$(SOURCE)-$(VERSION) +TAR_ORIG_NAME = $(SOURCE)_$(VERSION).orig.tar.gz +TAR_ORIG = $(firstword $(wildcard ../$(TAR_ORIG_NAME)) $(wildcard ../orig/$(TAR_ORIG_NAME))) + +orig: $(DIR_ORIG) + rsync --delete --exclude debian --exclude .svk --exclude .svn --link-dest=$(DIR_ORIG)/ -a $(DIR_ORIG)/ . + +$(DIR_ORIG): +ifeq ($(TAR_ORIG),) + $(error Cannot find orig tarball $(TAR_ORIG_NAME)) +else + mkdir -p ../orig + tar -C ../orig -xzf $(TAR_ORIG) +endif + +.PHONY: build clean binary-indep binary-arch binary --- libperlio-via-dynamic-perl-0.12.orig/debian/compat +++ libperlio-via-dynamic-perl-0.12/debian/compat @@ -0,0 +1 @@ +4 --- libperlio-via-dynamic-perl-0.12.orig/debian/bin/genorig.py +++ libperlio-via-dynamic-perl-0.12/debian/bin/genorig.py @@ -0,0 +1,116 @@ +#!/usr/bin/env python + +import os, os.path, re, shutil, sys + +class Changelog(list): + _rules = r""" +^ +(?P + \w[-+0-9a-z.]+ +) +\ +\( +(?P + [^\(\)\ \t]+ +) +\) +\s+ +(?P + [-+0-9a-zA-Z.]+ +) +\; +""" + _re = re.compile(_rules, re.X) + + class Entry(object): + __slot__ = 'distribution', 'source', 'version' + + def __init__(self, distribution, source, version): + self.distribution, self.source, self.version = distribution, source, version + + def __init__(self, dir): + f = file(os.path.join(dir, "debian/changelog")) + while True: + line = f.readline() + if not line: + break + match = self._re.match(line) + if not match: + continue + self.append(self.Entry(match.group('distribution'), match.group('source'), match.group('version'))) + +class GenOrig(object): + log = sys.stdout.write + + def __init__(self, root, orig, input_tar, version): + self.orig, self.input_tar, self.version = orig, input_tar, version + + changelog = Changelog(root) + self.source = changelog[0].source + + def __call__(self): + import tempfile + self.dir = tempfile.mkdtemp(prefix = 'genorig', dir = 'debian') + try: + self.orig_dir = "%s-%s" % (self.source, self.version) + self.orig_tar = "%s_%s.orig.tar.gz" % (self.source, self.version) + + self.do_upstream() + self.do_orig() + finally: + shutil.rmtree(self.dir) + + def do_upstream(self): + self.log("Extracting tarball %s\n" % self.input_tar) + match = re.match(r'(^|.*/)(?P[^/]+)\.(t|tar\.)(?P(gz|bz2))$', self.input_tar) + if not match: + raise RuntimeError("Can't identify name of tarball") + cmdline = ['tar -xf', self.input_tar, '-C', self.dir] + extension = match.group('extension') + if extension == 'bz2': + cmdline.append('-j') + elif extension == 'gz': + cmdline.append('-z') + if os.spawnv(os.P_WAIT, '/bin/sh', ['sh', '-c', ' '.join(cmdline)]): + raise RuntimeError("Can't extract tarball") + os.rename(os.path.join(self.dir, match.group('dir')), os.path.join(self.dir, self.orig_dir)) + + def do_orig(self): + self.log("Generating tarball %s\n" % self.orig_tar) + out = os.path.join(self.orig, self.orig_tar) + + try: + os.mkdir(self.orig) + except OSError: pass + try: + os.stat(out) + except OSError: pass + else: + raise RuntimeError("Destination already exists (%s)" % out) + + cmdline = ['tar -czf', out, '-C', self.dir, self.orig_dir] + try: + if os.spawnv(os.P_WAIT, '/bin/sh', ['sh', '-c', ' '.join(cmdline)]): + raise RuntimeError("Can't patch source") + os.chmod(out, 0644) + except: + try: + os.unlink(out) + except OSError: + pass + raise + +if __name__ == '__main__': + from optparse import OptionParser + p = OptionParser(usage = "%prog TAR VERSION") + options, args = p.parse_args(sys.argv) + + if len(args) < 2: + raise RuntimeError("Need more arguments") + + root = os.path.realpath(os.path.join(sys.path[0], '..', '..')) + orig = os.path.realpath(os.path.join(root, '..', 'orig')) + input_tar = args[1] + version = args[2] + + GenOrig(root, orig, input_tar, version)()