Change 14180 by jhi@alpha on 2002/01/11 13:53:49
Forgot from #14179.
Affected files ...
.... //depot/perl/lib/Pod/InputObjects.pm#17 edit
.... //depot/perl/lib/Pod/t/InputObjects.t#3 edit
Differences ...
==== //depot/perl/lib/Pod/InputObjects.pm#17 (text) ====
Index: perl/lib/Pod/InputObjects.pm
--- perl/lib/Pod/InputObjects.pm.~1~ Fri Jan 11 07:00:05 2002
+++ perl/lib/Pod/InputObjects.pm Fri Jan 11 07:00:05 2002
@@ -268,7 +268,7 @@
## If they are in the argument list, they will override the defaults.
my $self = {
-name => undef,
- -text => (@_ == 1) ? $_[0] : undef,
+ -text => (@_ == 1) ? shift : undef,
-file => '<unknown-file>',
-line => 0,
-prefix => '=',
@@ -892,7 +892,7 @@
my $self = shift;
local *ptree = $self;
for (@ptree) {
- next unless (length and ref and ref ne 'SCALAR');
+ next unless (defined and length and ref and ref ne 'SCALAR');
$_->_unset_child2parent_links()
if UNIVERSAL::isa($_, 'Pod::InteriorSequence');
}
==== //depot/perl/lib/Pod/t/InputObjects.t#3 (text) ====
Index: perl/lib/Pod/t/InputObjects.t
--- perl/lib/Pod/t/InputObjects.t.~1~ Fri Jan 11 07:00:05 2002
+++ perl/lib/Pod/t/InputObjects.t Fri Jan 11 07:00:05 2002
@@ -1,4 +1,4 @@
-#!perl
+#!perl -Tw
BEGIN {
chdir 't' if -d 't';
@@ -37,7 +37,7 @@
is( $p_p1->cmd_name(), 'head2', 'Pod::Paragraph->cmd_name()' );
is( $p_p1->cmd_name( 'head1' ), 'head1',
'Pod::Paragraph->cmd_name( head1 )' );
- is( $p_p2->cmd_name(), '',
+ cmp_ok( $p_p2->cmd_name(), 'eq', '',
'Pod::Paragraph->cmd_name() revisited' );
is( $p_p1->text(), 'NAME', 'Pod::Paragraph->text()' );
End of Patch.
