SOURCES: pldcpan.pl - cosmetics

[migo]

Author: migo                         Date: Fri Nov 11 20:26:25 2005 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- cosmetics

---- Files affected:
SOURCES:
   pldcpan.pl (1.28 -> 1.29) 

---- Diffs:

================================================================
Index: SOURCES/pldcpan.pl
diff -u SOURCES/pldcpan.pl:1.28 SOURCES/pldcpan.pl:1.29
--- SOURCES/pldcpan.pl:1.28	Fri Nov 11 21:23:49 2005
+++ SOURCES/pldcpan.pl	Fri Nov 11 21:26:20 2005
@@ -275,7 +275,7 @@
 		# If we have encountered any head command then abort collecting
 		# summary and description
 		my $command = $node->get_command;
-		if ($node->is_command and $node->get_command =~ /head/) {
+		if ($node->is_command and $command =~ /head/) {
 			if ($command eq 'head1' or $nodes_since_description_start > 3) {
 				$we_are_in_description	= 0;
 			}
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/SOURCES/pldcpan.pl?r1=1.28&r2=1.29&f=u