}
die "You are missing some modules - install them by:\n"
."\tperl -MCPAN -e 'install qw(".join(" ",@missing).")'\n"
+ ."If you see messages: Writing Makefile for <packagename> -- NOT OK\n"
+ ."you may did not have installed make(1) while configuring Perl CPAN.\n"
+ ."Install make(1) and type 'o conf init' in: perl -MCPAN -e shell\n"
if @missing;
}
Supported parameters:
--rpm Build RPM packages locally (needs /usr/src/(redhat|packages)/ access)
--rpmtest Build RPM like "rpm" but w/o gpg/pgp signing
+ --deb Build DEB packages locally
+ --debtest Build DEB like "deb" but w/o gpg/pgp signing
+ --dist Prepare all build files but do not run the final "./configure"
--clean Standard cleanup method
--fullclean Like clean but even the .cvsignore files are removed
--copy Behave exactly like in default mode but copy all instead of symlinks
$class->_prepdist($name);
_system "make $name.spec";
my $spec=_readfile "$name.spec";
- my $patch=($spec=~/^Patch\d*:\s*(.*)$/m)[0];
+ my $patch=($spec=~/^Patch\d*\s*:\s*(.*)$/m)[0];
_system "make dist";
if (!$patch) {
_copy "$name-*.tar.gz",_rpmeval("_sourcedir");
}
else {
my @origs;
- for my $glob ("orig-$name-*.tar.{gz,Z}") {
- @origs=glob "orig-$name-*.tar.{gz,Z,bz2}";
+ for my $glob ("orig-$name-*.tar.{gz,Z,bz2}") {
+ @origs=glob $glob;
confess "Invalid glob $glob: ".join(",",@origs) if 1!=@origs;
}
- my $base=($origs[0]=~/^orig-(.*)[.]tar[.](?:gz|Z)$/)[0];
+ my($base,$ext)=($origs[0]=~/^orig-(.*)[.]tar[.](gz|Z|bz2)$/);
_copy $origs[0],_rpmeval("_sourcedir")."/".($origs[0]=~/^orig-(.*)$/)[0];
- _system "tar xzf ".$origs[0];
+ _system "tar x".($ext eq "bz2" ? "j" : "z")."f ".$origs[0];
_mkdir $base."-orig";
# FIXME: Copy also dot-prefixed files!
_move \1,$base."/*",$base."-orig/";
my $name=$Options{"name"};
$class->_prepdist($name);
_system "make distdir";
- _system(join(" ","cd $name-*;dpkg-buildpackage",
+ # Copy 'orig' archive after &_prepdist which would delete it.
+ my @origs;
+ for my $glob ("orig-$name-*.tar.{gz,Z,bz2}") {
+ @origs=glob $glob;
+ if (@origs) {
+ confess "Invalid glob $glob: ".join(",",@origs) if 1!=@origs;
+ (my $deborig=$origs[0])=~s/^orig-([^-]+)-(.*)([.]tar[.][^.]+)$/$1_$2.orig$3/;
+ _copy $origs[0],$deborig;
+ }
+ }
+ my @subdirs;
+ for my $glob ("$name-*") {
+ @subdirs=glob $glob;
+ confess "Invalid glob $glob: ".join(",",@subdirs) if 1!=@subdirs;
+ }
+ _system(join(" ","cd ".$subdirs[0].";dpkg-buildpackage",
"-rfakeroot",
($args{"sign"} ? () : ("-us","-uc")),
));
- _remove \1,"$name-*";
- _system "ls -l ${name}_*";
+ _remove \1,$subdirs[0];
+ _system "ls -l ${name}*_[0-9]*";
exit 0; # should never return
}
./mkinstalldirs
./libtool ./ltconfig ./ltmain.sh
./ABOUT-NLS
- ./<name>-[0-9]* ./<name>-devel-[0-9]*
+ ./<name>-[0-9]* ./<name>-*-[0-9]*
./<name>.spec ./<name>.m4 ./<name>.spec.m4
./debian/tmp ./debian/<name>
- ./<name>_[0-9]*
+ ./<name>*_[0-9]*
./macros/macros.dep
./po/Makefile.in.in ./po/POTFILES* ./po/cat-id-tbl.c ./po/cat-id-tbl.tmp
./po/*.gmo ./po/*.mo ./po/stamp-cat-id ./po/<name>.pot ./po/ChangeLog
"rpmtest" ,sub { $class->_rpmbuild("sign"=>0); },
"deb" ,sub { $class->_debbuild("sign"=>1); },
"debtest" ,sub { $class->_debbuild("sign"=>0); },
+ "cleanfilesfordir=s",sub { print "$_\n" for (_cleanfilesfordir $_[1]); exit 0; },
"dist" ,\$Options{"ARGV_dist"},
"copy!" ,\$Options{"ARGV_copy"},
"fullclean",\$Options{"ARGV_fullclean"},
return if $Options{"ARGV_clean"} || $Options{"ARGV_fullclean"};
$Options{"aclocal_args"}=[qw(-I macros),map((!$_ ? () : @$_),$Options{"aclocal_args"})];
- my $configure_in=_readfile("configure.in");
- do { $$_=1 if !defined($$_) && $configure_in=~/^AM_GNU_GETTEXT\b/m; }
+ my $configure_name;
+ do { $configure_name||=$_ if -f $_ } for ("configure.in");
+ do { $configure_name||=$_ if -f $_ } for ("configure.ac");
+ $configure_name or confess "Cannot find configure.{in,ac}";
+ my $configure_in=_readfile($configure_name);
+ do { $$_=1 if !defined($$_) && $configure_in=~/^\s*AM_GNU_GETTEXT\b/m; }
for (\$Options{"want-gettextize"});
- do { $$_=1 if !defined($$_) && $configure_in=~/^AM_GLIB_GNU_GETTEXT\b/m; }
+ do { $$_=1 if !defined($$_) && $configure_in=~/^\s*AM_GLIB_GNU_GETTEXT\b/m; }
for (\$Options{"want-glib-gettextize"});
- do { $$_=1 if !defined($$_) && $configure_in=~/^AM_PROG_LIBTOOL\b/m; }
+ do { $$_=1 if !defined($$_) && $configure_in=~/^\s*AM_PROG_LIBTOOL\b/m; }
for (\$Options{"want-libtoolize"});
- do { $$_=1 if !defined($$_) && $configure_in=~/^A[CM]_CONFIG_HEADER\b/m; }
+ do { $$_=1 if !defined($$_) && $configure_in=~/^\s*A[CM]_CONFIG_HEADER\b/m; }
for (\$Options{"want-autoheader"});
my @copy_arg=(!$Options{"ARGV_copy"} ? () : "--copy");
."'") {
_system $_ and confess $_;
}
- for ("configure.in","Makefile.am") {
+ for ($configure_name,"Makefile.am") {
STDERR->printflush("gettextize recovery rename \"$_~\"->\"$_\"... ");
rename "$_~","$_" or confess "$!";
STDERR->printflush("ok\n");