Fix examples in the POD

nigelhorne · Jan 17, 2024 · 6ca8c82 · 6ca8c82
1 parent 40c7b89
commit 6ca8c82
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/CGI/Info.pm b/lib/CGI/Info.pm
@@ -443,9 +443,9 @@ constructor.
 	# ...
 	my $info = CGI::Info->new();
 	my $allowed = {
-		'foo' => qr(^\d*$),	# foo must be a number, or empty
-		'bar' => undef,
-		'xyzzy' => qr(^[\w\s-]+$),	# must be alphanumeric
+		foo => qr/^\d*$/,	# foo must be a number, or empty
+		bar => undef,
+		xyzzy => qr/^[\w\s-]+$/,	# must be alphanumeric
 						# to prevent XSS, and non-empty
 						# as a sanity check
 	};
@@ -822,7 +822,7 @@ be thrown:
 
 	use CGI::Info;
 	my $allowed = {
-		'foo' => qr(\d+),
+		foo => qr/\d+/
 	};
 	my $xyzzy = $info->params(allow => $allowed);
 	my $bar = $info->param('bar');  # Gives an error message