Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Perl 5.10.0 and Tk 804.027

by Tux (Abbot)
on Dec 20, 2007 at 08:27 UTC ( #658082=note: print w/replies, xml ) Need Help??

in reply to Perl 5.10.0 and Tk 804.027

The most current stable version is Tk-804.028 released on 18 Dec 2007, which - for me - builds out of the box and passes all (even TODO) tests on perl-5.10.0, even under 64bit HP-UX 11.23

I get the most recent version from svn very often. I don't like svn, as it does only run on Linux, and I can't get it to work on HP-UX or AIX, so here's a script to get a tar archive from the svn trunk:

. . .
#!/pro/bin/perl use strict; use warnings; my $url = ""; chdir "/pro/3gl/CPAN/Tk"; my ($revision) = (`svn info $url` =~ m{\s Rev: \s+ ([0- +9]+) }mx); my @tbz = glob "Tk-*-[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 Tk"; my ($version) = (`cat Tk/` =~ m{\b VERSION \s+ = \s* ["'] ([0- +9.]+) }mx); # " my $tkdir = "Tk-$version-$revision"; rename "Tk", $tkdir; print "Fetched $tkdir\n"; my $startrev = $revision - 400; # Last 100 changes qx{svn log -r $startrev:$revision $url >$tkdir/Changelog}; qx{tar -c -P -f - $tkdir | bzip2 -9 >$tkdir.tbz}; print "See $tkdir/Changelog for the most recent changes\n"; #qx{rm -rf $tkdir};

which will give you a file like

5408955 2007-12-18 13:05 Tk-804.027-10390.tbz

Enjoy, Have FUN! H.Merijn

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://658082]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (11)
As of 2018-06-25 15:42 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (127 votes). Check out past polls.