On Thu, 24 Aug 2006 16:39:25 +0200, Raphael Manfredi
<[EMAIL PROTECTED]> wrote:

> Hello perl5 builders,
> 
> I've revived the "dist" project since I've been using metaconfig and
> jmake on another project of mine for several years.
> 
> Ideally, I'd like to be able to retrofit some of the configuration
> knowledge gathered by having Configure run on as many platforms as
> possible.
> 
> The sources are available under subversion.  To access them, you
> can run the following:
> 
>       svn co https://svn.sourceforge.net/svnroot/dist/trunk/dist

I'm now in sync with the svn repo using this:
--8<--- trunk2tbz
#!/pro/bin/perl

use strict;
use warnings;

my $url = "https://dist.svn.sourceforge.net/svnroot/dist/trunk";;

chdir "/pro/3gl/CPAN/meta-dist";

my ($revision) = (`svn info $url` =~ m{\s Rev: \s+ ([0-9]+) }mx);
my  @tbz = glob "meta-dist-*-[0-9]*.tbz";
if (@tbz and $tbz[-1] =~ m{.*-([0-9]+)\.tbz$} && $1 == $revision) {
    print STDERR "$tbz[-1] is the most recent already\n";
    exit;
    }

system "svn export $url _dist"; # Creates dir "_dist/dist"
rename "_dist/dist", "dist";
rmdir  "_dist";

my ($version) = (`cat dist/patchlevel.h` =~ m{define \s+ VERSION \s+ ([\d.]+) 
}x);

my $distdir = "dist-$version-$revision";
rename "dist", $distdir;

print "Fetched $distdir\n";

my $startrev = 0; # $revision - 400;    # Last 400 changes
qx{svn log -r $startrev:$revision $url >$distdir/Changelog};
qx{tar -c  -P -f - $distdir | bzip2 -9 >$distdir.tbz};
print "See $distdir/Changelog for the most recent changes\n";
-->8---

-rw-rw-rw-  1 merijn users 398589 2008-01-04 09:42 dist-3.5-19.tbz

I'll start looking at the changes and see if they should be
integrated in the perl meta units.

I will also see if the changes I made to metaconfig and metalint
could find it's way back to the trunk. Note that I do not use
svn, and have no plans to learn it. git was a high enough hurdle
already for someone coming from SCCS.

> It would be good if the current maintainers of the metaconfig units
> for Perl could join the "dist" project.  I'll give you SVN write
> access.
> 
> I've also setup a mailing list "[EMAIL PROTECTED]" where
> SVN commit messages along with patches will be sent.
> 
> Finally, I've created a #dist IRC channel on irc.freenode.net where
> commit messages will be automatically issued.

Low volume? :)

-- 
H.Merijn Brand         Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using & porting perl 5.6.2, 5.8.x, 5.10.x  on HP-UX 10.20, 11.00, 11.11,
& 11.23, SuSE 10.1 & 10.2, AIX 5.2, and Cygwin.       http://qa.perl.org
http://mirrors.develooper.com/hpux/            http://www.test-smoke.org
                        http://www.goldmark.org/jeff/stupid-disclaimers/

Reply via email to