Changeset 13827

Timestamp:

01/26/12 03:07:18 (4 weeks ago)

Author:

KipLubliner

Message:

Item11437: Annotate ---+ package line with the visibility from System.PublishedAPI. AND update the test case too.

File:

• trunk/core/lib/Foswiki/IncludeHandlers/doc.pm (modified) (3 diffs)

trunk/core/lib/Foswiki/IncludeHandlers/doc.pm

@@ -32 +32 @@
     Foswiki::Func::setPreferencesValue( 'DOC_TITLE', '---++ !! !%TOPIC%' );
     $class =~ s/[a-z]+://;    # remove protocol
-    $class ||= 'Foswiki';         # provide a reasonable default
+    $class ||= 'Foswiki';     # provide a reasonable default
 #    return '' unless $class && $class =~ /^Foswiki/;
     $class =~ s/[^\w:]//g;
@@ -81 +81 @@
                     $isa = undef;
                 }
-#               This changes breaks the unit tests.  If the proposal is accepted, then I will change again and update the unit tests.
-#                $line =~ s/^---\+(?:!!)?\s+package\s*(.*)/---+ =$visibility package= $1/;
-                $line =~ s/^---\+(?:!!)?\s+package\s*(.*)/---+ =package= $1/;
+                $line =~ s/^---\+(?:!!)?\s+package\s*(.*)/---+ =$visibility package= $1/;
             }
             else {
@@ -204 +202 @@
     close($PMFILE);
 
-        while (@summary) {
-                if ($summary[0] =~ /^\s*$/) {
-                        shift @summary;
-                } else {
-                        last;
-                }
-        }
+    while (@summary) {
+        if ($summary[0] =~ /^\s*$/) {
+            shift @summary;
+        } else {
+            last;
+        }
+    }
     if (!@summary) {
         return '';