in reply to Re: Tie::IxHash::Easy and Tie::Autotie on CPAN
in thread Tie::IxHash::Easy and Tie::Autotie on CPAN
Oh. Fixing... update: fixed.
Let this be a lesson to you:
If you follow that code carefully, you'll see why the links were messed up. When I read from README, I was setting $_ each time, which clobbered the $_ that held the filename.for my (grep -d, glob "*") { (my $mod = $_) =~ s/-/::/g; my ($latest) = sort { $b <=> $a } map /.*-(\d+\.?\d*)/, glob "$_/*"; my $what = ""; open README, "< $_/$_-$latest/README"; while (<README>) { # AGH! THIS KILLED MY OLD $_ ($what) = /$mod - (.*)/ and last; } close README; print "<h2><tt>$mod $latest</tt></h2>\n"; print "<b>\u$what</b>\n"; print "<ul><li><a href='$_/$_-$latest/'>Documentation</a> and source +\n"; print "<li><a href='$_/$_-$latest.tar.gz'>Download</a></ul>\n"; }
|
|---|