5 Commits
8.70 ... 8.72

8 changed files with 61 additions and 49 deletions

View File

@@ -334,10 +334,14 @@ sub prep {
print OUT $this->name." (".$this->version."-".$this->release.") experimental; urgency=low\n"; print OUT $this->name." (".$this->version."-".$this->release.") experimental; urgency=low\n";
print OUT "\n"; print OUT "\n";
print OUT " * Converted from .".$this->origformat." format to .deb by alien version $Alien::Version\n"; print OUT " * Converted from .".$this->origformat." format to .deb by alien version $Alien::Version\n";
print OUT " \n";
if (defined $this->changelogtext) {
my $ct=$this->changelogtext;
$ct=~s/^/ /gm;
print OUT $ct."\n";
}
print OUT "\n"; print OUT "\n";
print OUT " -- ".$this->username." <".$this->email."> ".$this->date."\n"; print OUT " -- ".$this->username." <".$this->email."> ".$this->date."\n";
print OUT "\n";
print OUT $this->changelogtext."\n" if defined $this->changelogtext;
close OUT; close OUT;
# Control file. # Control file.

View File

@@ -187,30 +187,45 @@ sub unpack {
# #
# Test to see if the package contains the prefix directory already. # Test to see if the package contains the prefix directory already.
if (defined $this->prefixes && ! -e "$workdir/".$this->prefixes) { if (defined $this->prefixes && ! -e "$workdir/".$this->prefixes) {
my $relocate=1;
# Get the files to move. # Get the files to move.
my @filelist=glob("$workdir/*"); my @filelist=glob("$workdir/*");
# Now, make the destination directory. # Now, make the destination directory.
my $collect=$workdir; my $collect=$workdir;
foreach (split m:/:, $this->prefixes) { foreach (split m:/:, $this->prefixes) {
if ($_ ne '') { # this keeps us from using anything but relative paths. if ($_ ne '') { # this keeps us from using anything but relative paths.
$collect.="/$_"; $collect.="/$_";
if (-d $collect) {
# The package contains a parent
# directory of the relocation
# directory. Since it's impossible
# to move a parent directory into
# its child, bail out and do
# nothing.
$relocate=0;
last;
}
$this->do("mkdir", $collect) || die "unable to mkdir $collect: $!"; $this->do("mkdir", $collect) || die "unable to mkdir $collect: $!";
} }
} }
# Now move all files in the package to the directory we made.
if (@filelist) {
$this->do("mv", @filelist, "$workdir/".$this->prefixes)
or die "error moving unpacked files into the default prefix directory: $!";
}
# Deal with relocating conffiles. if ($relocate) {
my @cf; # Now move all files in the package to the directory we made.
foreach my $cf (@{$this->conffiles}) { if (@filelist) {
$cf=$this->prefixes.$cf; $this->do("mv", @filelist, "$workdir/".$this->prefixes)
push @cf, $cf; or die "error moving unpacked files into the default prefix directory: $!";
}
# Deal with relocating conffiles.
my @cf;
foreach my $cf (@{$this->conffiles}) {
$cf=$this->prefixes.$cf;
push @cf, $cf;
}
$this->conffiles([@cf]);
} }
$this->conffiles([@cf]);
} }
# rpm files have two sets of permissions; the set in the cpio # rpm files have two sets of permissions; the set in the cpio

View File

@@ -95,7 +95,7 @@ sub scan {
# Strip out any tar extentions. # Strip out any tar extentions.
$basename=~s/\.(tgz|tar\.(gz|Z))$//; $basename=~s/\.(tgz|tar\.(gz|Z))$//;
if ($basename=~m/(.*)-(.*?[0-9]+.*)/) { if ($basename=~m/([\w-]+)-([0-9\.?]+).*/) {
$this->name($1); $this->name($1);
$this->version($2); $this->version($2);
} }

17
debian/changelog vendored
View File

@@ -1,3 +1,20 @@
alien (8.72) unstable; urgency=low
* Use debhelper 7, rules file minimisation.
* Improve parsing of tgz filenames, to avoid confusion when the filename
includes the package type (ie, "noarch"). Patch from Andrej Ricnik-Bay.
* When generating a debian changelog file, work around bug #478925 by
including the alien changelog text inside the debian changelog entry.
-- Joey Hess <joeyh@debian.org> Thu, 01 May 2008 15:40:34 -0400
alien (8.71) unstable; urgency=low
* Deal with rpms that relocate ie, /usr into /usr/local, and don't
try to move /usr into /usr/local in this case. Closes: #470905
-- Joey Hess <joeyh@debian.org> Fri, 14 Mar 2008 13:35:33 -0400
alien (8.70) unstable; urgency=low alien (8.70) unstable; urgency=low
* Extract prefixes field before extracting scripts so that * Extract prefixes field before extracting scripts so that

2
debian/compat vendored
View File

@@ -1 +1 @@
4 7

2
debian/control vendored
View File

@@ -1,7 +1,7 @@
Source: alien Source: alien
Section: admin Section: admin
Priority: optional Priority: optional
Build-Depends: debhelper (>= 4) Build-Depends: debhelper (>= 7)
Maintainer: Joey Hess <joeyh@debian.org> Maintainer: Joey Hess <joeyh@debian.org>
Standards-Version: 3.7.3 Standards-Version: 3.7.3
Vcs-Git: git://git.kitenet.net/alien Vcs-Git: git://git.kitenet.net/alien

2
debian/docs vendored Normal file
View File

@@ -0,0 +1,2 @@
README
gendiff.txt

38
debian/rules vendored
View File

@@ -1,47 +1,21 @@
#!/usr/bin/make -f #!/usr/bin/make -f
%:
dh $@
build: build-stamp build:
build-stamp: dh build
dh_testdir
perl Makefile.PL
$(MAKE)
# simple smoke test # simple smoke test
./alien.pl -V ./alien.pl -V
touch build-stamp
clean:
dh_testdir
dh_testroot
rm -f build-stamp
perl Makefile.PL
if [ -e Makefile ]; then $(MAKE) realclean; fi
dh_clean
binary-arch: build
binary-indep: build binary-indep: build
dh_testdir dh install --before dh_auto_install
dh_testroot
dh_clean -k
$(MAKE) pure_install INSTALLDIRS=vendor \ $(MAKE) pure_install INSTALLDIRS=vendor \
PREFIX=$(shell pwd)/debian/alien/$(shell perl -MConfig -e 'print $$Config{prefix}') \ PREFIX=$(shell pwd)/debian/alien/$(shell perl -MConfig -e 'print $$Config{prefix}') \
VARPREFIX=$(shell pwd)/debian/alien VARPREFIX=$(shell pwd)/debian/alien
# Why does it make this empty directory? Sigh. dh install --after dh_auto_install
rm -rf debian/alien/usr/lib
dh_installdocs README gendiff.txt
dh_installexamples
dh_installchangelogs
dh_compress
dh_fixperms
dh_perl
dh_installdeb
dh_gencontrol
dh_md5sums
dh_builddeb
# Not intended for use by anyone except the author. # Not intended for use by anyone except the author.
announcedir: announcedir:
@echo ${HOME}/src/joeywiki/code/alien/news @echo ${HOME}/src/joeywiki/code/alien/news
binary: binary-indep binary-arch binary: binary-indep binary-arch
.PHONY: build clean binary-indep binary-arch binary