--- deliantra/server/lib/cf.pm	2007/10/26 04:44:54	1.392
+++ deliantra/server/lib/cf.pm	2007/10/26 04:47:00	1.393
@@ -1550,10 +1550,11 @@
 
 =cut
 
-   use re 'eval';
+use re 'eval';
 
 my $group;
 my $interior; $interior = qr{
+   # match a pod interior sequence sans C<< >>
    (?:
       \ (.*?)\  (?{ $group = $^N })
       | < (??{$interior}) >
@@ -1629,6 +1630,8 @@
    $xml
 }
 
+no re 'eval';
+
 sub hintmode {
    $_[0]{hintmode} = $_[1] if @_ > 1;
    $_[0]{hintmode}