Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Perl 5.10.0 and Tk 804.027

by Tux (Monsignor)
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 = "http://svn.perl.org/modules/Tk/trunk"; 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/Tk.pm` =~ 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


Comment on Re: Perl 5.10.0 and Tk 804.027
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://658082]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (12)
As of 2014-08-28 16:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (264 votes), past polls