* CGI.pm: allow &escapeHTML and &unescapeHTML to be exported.

git-svn-id: http://svn.pugscode.org/pugs@3824 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · May 24, 2005 · e5e11ee · e5e11ee
1 parent e98c7f2
commit e5e11ee
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ext/CGI/lib/CGI.pm b/ext/CGI/lib/CGI.pm
@@ -193,7 +193,7 @@ sub load_params {
     }    
 }
 
-sub escapeHTML (Str $string, Bool +$newlines) returns Str {
+sub escapeHTML (Str $string, Bool +$newlines) is export returns Str {
     # XXX check for $self.escape == 0
     #unless ($self.escape != 0) { return $toencode; }
 
@@ -232,7 +232,7 @@ sub escapeHTML (Str $string, Bool +$newlines) returns Str {
     return $string;
 }
 
-sub unescapeHTML (Str $string) returns Str {
+sub unescapeHTML (Str $string) is export returns Str {
     # XXX check $self.charset
     #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
     my $latin = 1;