--- trunk/webwork-modperl/lib/WeBWorK.pm	2003/06/06 20:36:44	1047
+++ trunk/webwork-modperl/lib/WeBWorK.pm	2003/06/06 21:16:09	1048
@@ -50,7 +50,7 @@
 	my $current_uri = $r->uri;
 	my $args = $r->args;
 	
-	my $urlRoot = $current_uri =~ m/^(.*)$path_info/;
+	my ($urlRoot) = $current_uri =~ m/^(.*)$path_info/;
 	
 	# If it's a valid WeBWorK URI, it ends in a /.  This is assumed
 	# alllll over the place.