[32320] in Perl-Users-Digest
Perl-Users Digest, Issue: 3587 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 12 03:09:24 2012
Date: Thu, 12 Jan 2012 00:09:05 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 12 Jan 2012 Volume: 11 Number: 3587
Today's topics:
Re: POD module synopses? (Seymour J.)
Re: POD module synopses? (Seymour J.)
Re: POD module synopses? <nospam-abuse@ilyaz.org>
Re: POD module synopses? (Seymour J.)
search.cpan.org: how to advice its displays <nospam-abuse@ilyaz.org>
Re: search.cpan.org: how to advice its displays <nospam-abuse@ilyaz.org>
Re: search.cpan.org: how to advice its displays <ben@morrow.me.uk>
Re: UCD, and Unicode-AGE of a character? <nospam-abuse@ilyaz.org>
Re: UCD, and Unicode-AGE of a character? <ben@morrow.me.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 10 Jan 2012 21:56:37 -0500
From: Shmuel (Seymour J.) Metz <spamtrap@library.lspace.org.invalid>
Subject: Re: POD module synopses?
Message-Id: <4f0cfa65$1$fuzhry+tra$mr2ice@news.patriot.net>
In <slrnjgp4p3.6kj.nospam-abuse@panda.math.berkeley.edu>, on
01/10/2012
at 07:36 PM, Ilya Zakharevich <nospam-abuse@ilyaz.org> said:
>My development machine would not go out of BIOS,
The issues that I'm concerned about don't require an OS/2 machine for
testing. The original 1.27 and 1.34 code was escaping index entries
twice, leading to translating colons to "&.colon." instead of to
"&colon." I was able to fix that, but can't guaranty that I didn't
break anything else. The two additional problems that I'm concerned
with are
1. The code is writing lines beginning with "...". I've made
changes that I thought would fix it, but there seem to be
two cases that still slip through.
2. The code is writing empty .in. lines. Again, I've added code
that I thought would fix it, but I'm still seeing them.
--
Shmuel (Seymour J.) Metz, SysProg and JOAT <http://patriot.net/~shmuel>
Unsolicited bulk E-mail subject to legal action. I reserve the
right to publicly post or ridicule any abusive E-mail. Reply to
domain Patriot dot net user shmuel+news to contact me. Do not
reply to spamtrap@library.lspace.org
------------------------------
Date: Wed, 11 Jan 2012 01:27:35 -0500
From: Shmuel (Seymour J.) Metz <spamtrap@library.lspace.org.invalid>
Subject: Re: POD module synopses?
Message-Id: <4f0d2bd7$3$fuzhry+tra$mr2ice@news.patriot.net>
In <slrnjgp5cp.6kj.nospam-abuse@panda.math.berkeley.edu>, on
01/10/2012
at 07:46 PM, Ilya Zakharevich <nospam-abuse@ilyaz.org> said:
>OK, OK, I run through backups, and one nearby has the rcs file. So
>the version in ilyaz.org/software/os2/pod2ipf.zip may have a wrong
>timestamp, but should be otherwise identical to my latest and
>greatest version.
It looks like that fixed a lot of the problems. I've made three
changes (diff follows sig to avoid wrapping).
1. Continue running if a file is not found, to correct for a
missing file in Paul Smedley's 5.10 build.
2. Correct the translation of a AElig to Æ. rather than to
&Aelig..
3. Don't treat the fist header as a skipped header.
If you're planning to upload your latest pod2ipf.cmd to CPAN, could
you please fold in my fixes? Thanks.
--
Shmuel (Seymour J.) Metz, SysProg and JOAT <http://patriot.net/~shmuel>
879,883c879,885
< print STDERR " Jump in level: was $last_hl, now $level.\n"
< if $level > $last_hl + 1;
< while ($level > $last_hl + 1) {
< $last_hl++; # Same as tree nodes:
< print ":h$last_hl group=$groups{tree_nodes} x=left width=10% y=top height=10%.---fake-fix-level-node---\n:p.\n------------ Intentionally blank (missing level in the source POD) -----------\n"
---
> if (defined $last_hl) {
> print STDERR " Jump in level: was $last_hl, now $level.\n"
> if $level > $last_hl + 1;
> while ($level > $last_hl + 1) {
> $last_hl++; # Same as tree nodes:
> print ":h$last_hl group=$groups{tree_nodes} x=left width=10% y=top height=10%.---fake-fix-level-node---\n:p.\n------------ Intentionally blank (missing level in the source POD) -----------\n"
> }
901c903,904
< $fname = $modnamehash{$ftitle};
---
> # $fname = $modnamehash{$ftitle};
> unless ($fname = $modnamehash{$ftitle}) {print STDERR "!!! $ftitle not found\n"; return};
2003c2006
< "AElig" => 'Aelig', # capital AE diphthong (ligature)
---
> "AElig" => 'AElig', # capital AE diphthong (ligature)
------------------------------
Date: Wed, 11 Jan 2012 06:48:54 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: POD module synopses?
Message-Id: <slrnjgqc6m.7o4.nospam-abuse@panda.math.berkeley.edu>
On 2012-01-11, Shmuel Metz <spamtrap@library.lspace.org.invalid> wrote:
> It looks like that fixed a lot of the problems. I've made three
> changes (diff follows sig to avoid wrapping).
A lot of thanks! (But no promises...) BTW: could you redo it with
diff -pu ?
Yours,
Ilya
------------------------------
Date: Wed, 11 Jan 2012 10:31:04 -0500
From: Shmuel (Seymour J.) Metz <spamtrap@library.lspace.org.invalid>
Subject: Re: POD module synopses?
Message-Id: <4f0dab38$2$fuzhry+tra$mr2ice@news.patriot.net>
In <slrnjgqc6m.7o4.nospam-abuse@panda.math.berkeley.edu>, on
01/11/2012
at 06:48 AM, Ilya Zakharevich <nospam-abuse@ilyaz.org> said:
>A lot of thanks! (But no promises...) BTW: could you redo it with
>diff -pu ?
[f:\perl5\lib\5.14.2\pod]q:\moztools\diff -pu
H:\vendors\cpan\pod2ipf137.cmd.base H:\vendors\cpan\pod2ipf137.cmd
>h:\temp\pod2ipf137.diff
As before, the diff follows my sig. I'm not sure whether my fix for
uninitialized $last_hl was the minimal change needed.
--
Shmuel (Seymour J.) Metz, SysProg and JOAT <http://patriot.net/~shmuel>
--- H:\vendors\cpan\pod2ipf137.cmd.base 2012-01-10 22:04:40.000000000 -0500
+++ H:\vendors\cpan\pod2ipf137.cmd 2012-01-11 09:26:00.000000000 -0500
@@ -876,11 +876,13 @@ sub process_index {
my $last_hl = 123; # Very big
sub output_preheader ($) { # Fix head3 coming after head2; wrong for IPF
my $level = shift; # Warning 121 ==> Warning 110
- print STDERR " Jump in level: was $last_hl, now $level.\n"
- if $level > $last_hl + 1;
- while ($level > $last_hl + 1) {
- $last_hl++; # Same as tree nodes:
- print ":h$last_hl group=$groups{tree_nodes} x=left width=10% y=top height=10%.---fake-fix-level-node---\n:p.\n------------ Intentionally blank (missing level in the source POD) -----------\n"
+ if (defined $last_hl) {
+ print STDERR " Jump in level: was $last_hl, now $level.\n"
+ if $level > $last_hl + 1;
+ while ($level > $last_hl + 1) {
+ $last_hl++; # Same as tree nodes:
+ print ":h$last_hl group=$groups{tree_nodes} x=left width=10% y=top height=10%.---fake-fix-level-node---\n:p.\n------------ Intentionally blank (missing level in the source POD) -----------\n"
+ }
}
$last_hl = $level;
}
@@ -898,7 +900,8 @@ sub output_file {
$fname = $ftitle . '.pod';
if (not -f "./$fname") { # Protect 'B::C.pod' from accessing B drive
- $fname = $modnamehash{$ftitle};
+# $fname = $modnamehash{$ftitle};
+ unless ($fname = $modnamehash{$ftitle}) {print STDERR "!!! $ftitle not found\n"; return};
}
$page = $ftitle;
$toc = substr $maxtoc, -1, 1;
@@ -2000,7 +2003,7 @@ BEGIN {
"aacute" => "aa", # small a, acute accent
"Acirc" => "ac", # capital A, circumflex accent
"acirc" => "ac", # small a, circumflex accent
- "AElig" => 'Aelig', # capital AE diphthong (ligature)
+ "AElig" => 'AElig', # capital AE diphthong (ligature)
"aelig" => 'aelig', # small ae diphthong (ligature)
"Agrave" => "ag", # capital A, grave accent
"agrave" => "ag", # small a, grave accent
@@ -2268,7 +2271,8 @@ sub intern_modnamehash {
$used_name = $name_from_pod;
# dumpValue(\%alternative_name);
} else {
- print STDERR "\n!!! Not matching: `$_' vs. `$name_from_pod'\n"
+# print STDERR "\n!!! Not matching: `$_' vs. `$name_from_pod'\n"
+ print STDERR "\n!!! Not matching: `$_' vs. `$name_from_pod' in $shortpath $longname\n"
unless /perlfaq/;
}
$seen_from_pod{$name_from_pod}++;
@@ -2299,10 +2303,12 @@ sub intern_modnamehash {
}
$skip_sections{"$used_name/NAME"}++ if $skipNAME;
} else {
- print STDERR "\n!!! $_: bad NAME: `$theline'\n";
+# print STDERR "\n!!! $_: bad NAME: `$theline'\n";
+ print STDERR "\n!!! $_: bad NAME: `$theline' in $shortpath $longname\n";
}
} elsif ($good) {
- print STDERR "\n!!! $_: no NAME\n";
+# print STDERR "\n!!! $_: no NAME\n";
+ print STDERR "\n!!! $_: no NAME in $shortpath $longname\n";
}
add_file($used_name, $longname) if $good;
}
------------------------------
Date: Wed, 11 Jan 2012 08:07:05 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: search.cpan.org: how to advice its displays
Message-Id: <slrnjgqgp9.agv.nospam-abuse@panda.math.berkeley.edu>
For some time, I wonder how to make search.cpan.com's display of the
POD smarter. E.g., go to
http://search.cpan.org/~ilyaz/MP3-Tag-1.13/lib/MP3/Tag.pm#SEE_ALSO
Note that links to mp3info2 and typeset_audio_dir are "hot". Very
good. Click on mp3info2, go to SEE_ALSO again. Now the link to
typeset_audio_dir is "dead"; and same holds for audio_rename.
Somehow, the system does not realize that these are very (most?)
important parts of the distribution. And the EXE_FILES entry in the
Makefile.PL is determined at runtime (but not reflected in META.yml).
Is there a way to advice the system on these issues?
Thanks,
Ilya
------------------------------
Date: Wed, 11 Jan 2012 08:13:05 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: search.cpan.org: how to advice its displays
Message-Id: <slrnjgqh4h.agv.nospam-abuse@panda.math.berkeley.edu>
On 2012-01-11, Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote:
> For some time, I wonder how to make search.cpan.com's display of the
> POD smarter. E.g., go to
Oups, I just realized that what I posted could have been read in
negativish tones. Sorry for this!
I think that search.cpan.org is one of the largests and most useful
contributions to the Perl community. I use it very often, and do not
know anything comparably magnificent in other endevoirs - and not only
programming endevoirs.
Ouph. Got this air out,
Ilya
------------------------------
Date: Wed, 11 Jan 2012 11:47:24 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: search.cpan.org: how to advice its displays
Message-Id: <cf90u8-l8a1.ln1@anubis.morrow.me.uk>
Quoth Ilya Zakharevich <nospam-abuse@ilyaz.org>:
> For some time, I wonder how to make search.cpan.com's display of the
> POD smarter. E.g., go to
>
> http://search.cpan.org/~ilyaz/MP3-Tag-1.13/lib/MP3/Tag.pm#SEE_ALSO
>
> Note that links to mp3info2 and typeset_audio_dir are "hot". Very
> good. Click on mp3info2, go to SEE_ALSO again. Now the link to
> typeset_audio_dir is "dead"; and same holds for audio_rename.
>
> Somehow, the system does not realize that these are very (most?)
> important parts of the distribution. And the EXE_FILES entry in the
> Makefile.PL is determined at runtime (but not reflected in META.yml).
>
> Is there a way to advice the system on these issues?
Well, MP3/Tag.pm has the links in SEE ALSO wrapped in L<>, but mp3info2
doesn't. Perhaps whatever POD formatter Graham's using only picks up
links automatically if they look like module names?
Certainly I know that the formatter doesn't know or care whether the
links it generates will point anywhere useful. It will quite happily
generate a link to a non-existent module, which will magically start
working if a module by that name is subsequently uploaded.
However, there is another problem: the link to mp3info2 in
<http://search.cpan.org/~ilyaz/MP3-Tag-1.13/lib/MP3/Tag.pm#SEE_ALSO>
points to <http://search.cpan.org/perldoc?mp3info2>, and that link takes
you to <http://search.cpan.org/~ilyaz/MP3-Tag-0.9714/examples/mp3info2>,
in a much older version of the distribution. This is almost certainly
related to the fact that <http://search.cpan.org/~ilyaz/MP3-Tag-1.13/>
doesn't have entries for any of the scripts in examples/ under
'Documentation'.
I can't see any obvious reason for the later version not to have been
recognised: the script has a $VERSION, which would have been my first
suspicion, and the NAME section in the POD is right. Maybe the indexer
has been changed to only look for scripts (without a .pod extension)
under bin/? I don't know, I'm afraid, and looking at the META.yml spec
there doesn't seem to be any way to prompt the indexer from there.
Ben
------------------------------
Date: Wed, 11 Jan 2012 06:58:01 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: UCD, and Unicode-AGE of a character?
Message-Id: <slrnjgqcnp.7o4.nospam-abuse@panda.math.berkeley.edu>
On 2012-01-10, Ben Morrow <ben@morrow.me.uk> wrote:
>> BTW, why Unicode::UCD has so bizzare interface? Why not have
>> Unicode::UCD::Name, for example?
>> (The most important piece of data of those not available via Perl4
>> interfaces...)
>
> Well, they're not strictly 'Perl4' interfaces, of course, since none of
> this existed before 5.8...
As far as my memory serves me, lc, /\w/ etc were very well supported
in Perl4. ;-)
Thanks for the other [omitted] input,
Ilya
------------------------------
Date: Wed, 11 Jan 2012 11:01:44 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: UCD, and Unicode-AGE of a character?
Message-Id: <op60u8-fl91.ln1@anubis.morrow.me.uk>
Quoth Ilya Zakharevich <nospam-abuse@ilyaz.org>:
> On 2012-01-10, Ben Morrow <ben@morrow.me.uk> wrote:
> >> BTW, why Unicode::UCD has so bizzare interface? Why not have
> >> Unicode::UCD::Name, for example?
> >> (The most important piece of data of those not available via Perl4
> >> interfaces...)
> >
> > Well, they're not strictly 'Perl4' interfaces, of course, since none of
> > this existed before 5.8...
>
> As far as my memory serves me, lc, /\w/ etc were very well supported
> in Perl4. ;-)
Oh, sorry, I misunderstood you. I thought you meant the unicore/*.pl
files, which look a little like Perl 4-era libraries.
Yes, you're quite right: generally speaking, the only bits of the UCD
interface which are finished are the bits the rest of Perl needs.
Ben
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 3587
***************************************
