[svn:parrot] r19065 - trunk/lib/Parrot/Docs

[paultcochrane]

Author: paultcochrane
Date: Sun Jun 17 08:24:56 2007
New Revision: 19065

Modified:
   trunk/lib/Parrot/Docs/File.pm

Log:
[lib] Changed another variable name to be less ambiguous.


Modified: trunk/lib/Parrot/Docs/File.pm
==============================================================================
--- trunk/lib/Parrot/Docs/File.pm       (original)
+++ trunk/lib/Parrot/Docs/File.pm       Sun Jun 17 08:24:56 2007
@@ -380,17 +380,17 @@
                 last if $line =~ /\S/o;
             }
 
-            my @abstract = $line;
+            my @abstract_text = $line;
 
             while (@lines) {
                 $line = shift @lines;
 
                 last if $line !~ /\S/o;
 
-                push @abstract, $line;
+                push @abstract_text, $line;
             }
 
-            my $desc = join ' ', @abstract;
+            my $desc = join ' ', @abstract_text;
 
             # Joining lines may have created a bit of extra whitespace.
             $desc =~ s/\s+/ /osg;