develooper Front page | perl.perl5.porters | Postings from March 2000

Pod::InputObjects patch for plain refs

Thread Next
Russ Allbery
March 5, 2000 05:02
Pod::InputObjects patch for plain refs
Message ID:
I'd like to be able to use plain (unblessed scalar) refs in Pod::Man to
mark text as already processed; I think you'd already tried to patch
Pod::Parser for me to allow this.  But in 1.11, this still doesn't work
quite right.  I think this patch will fix the logic.

Be cool to get this in before the next Perl release, although I realize
it's late in the game for that.

---        Fri Feb 25 16:26:46 2000
+++     Sun Mar  5 04:59:02 2000
@@ -522,7 +522,7 @@
    my ($self, @children) = @_;
    ## Make sure any sequences know who their parent is
    for (@children) {
-      next unless (ref || ref eq 'SCALAR');
+      next if (!ref || ref eq 'SCALAR');
       if ($_->isa('Pod::InteriorSequence') or $_->can('nested')) {

Russ Allbery (             <>

Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About