From acb120b97e2a78ff880e344f2e1d9b17efa58de9 Mon Sep 17 00:00:00 2001
From: Florian Ragwitz <rafl@debianforum.de>
Date: Sat, 5 Nov 2005 02:52:19 +0000
Subject: [PATCH]  r19187@ata:  rafl | 2005-11-05 03:52:46 +0100  * Some POD
 fixes.

git-svn-id: https://svn.parrot.org/parrot/trunk@9793 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
---
 ops/cmp.ops    | 2 --
 ops/core.ops   | 8 +++++++-
 ops/object.ops | 2 --
 ops/string.ops | 4 ----
 4 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/ops/cmp.ops b/ops/cmp.ops
index 1ecb72b71e..122fae6ac1 100644
--- a/ops/cmp.ops
+++ b/ops/cmp.ops
@@ -144,8 +144,6 @@ op eq_addr(in PMC, in PMC, labelconst INT) :base_core {
   goto NEXT();
 }
 
-=cut
-
 ########################################
 
 =item B<ne>(in INT, in INT, labelconst INT)
diff --git a/ops/core.ops b/ops/core.ops
index e9edb22699..5ad32e9b46 100644
--- a/ops/core.ops
+++ b/ops/core.ops
@@ -535,7 +535,13 @@ op set_returns(inconst PMC) {
 
 =head2 Address manipulation
 
-=over 4 ########################################
+=for clarity
+
+########################################
+
+=cut
+
+=over 4
 
 =item B<set_addr>(out INT, labelconst INT)
 
diff --git a/ops/object.ops b/ops/object.ops
index 35e8a7d5d1..b88ab4b977 100644
--- a/ops/object.ops
+++ b/ops/object.ops
@@ -268,8 +268,6 @@ op subclass(out PMC, in STR) :object_classes {
   goto NEXT();
 }
 
-=cut
-
 =item B<getclass>(out PMC, in STR)
 
 Find the PMC for a class, by name. Note that this is a one-level hash, so for
diff --git a/ops/string.ops b/ops/string.ops
index 95ef3aa518..f5cfa7be7e 100644
--- a/ops/string.ops
+++ b/ops/string.ops
@@ -280,8 +280,6 @@ inline op index(out INT, in STR, in STR, in INT) :base_core {
 
 ########################################
 
-=cut
-
 op DELETED_pack(inout STR, in INT, in INT) :base_core {
     goto NEXT();
 }
@@ -549,8 +547,6 @@ op split(out PMC, in STR, in STR) :base_core {
     goto NEXT();
 }
 
-=cut
-
 op DELETED_isnull(in STR, labelconst INT) :base_core {
   goto NEXT();
 }