Use documentroot instead of document_root

nigelhorne · Jan 16, 2024 · 40c7b89 · 40c7b89
1 parent e53b0be
commit 40c7b89
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/Changes b/Changes
@@ -1,7 +1,7 @@
 Revision history for CGI-Info
 
 0.80
-	Added document_root() as a synonym to rootdir()
+	Added documentroot() as a synonym to rootdir()
 		For compatability with Apache
 
 0.79	Wed Jan  3 14:25:42 EST 2024

diff --git a/lib/CGI/Info.pm b/lib/CGI/Info.pm
@@ -1308,13 +1308,13 @@ sub root_dir
 	return __PACKAGE__->rootdir(@_);
 }
 
-=head2 document_root
+=head2 documentroot
 
 Synonym of rootdir(), for compatibility with Apache.
 
 =cut
 
-sub document_root
+sub documentroot
 {
 	if($_[0] && ref($_[0])) {
 		my $self = shift;

diff --git a/t/rootdir.t b/t/rootdir.t
@@ -28,8 +28,8 @@ ROOTDIR: {
 	ok(CGI::Info->root_dir() eq $dir);
 	ok(CGI::Info::rootdir() eq $dir);
 	ok(CGI::Info::root_dir() eq $dir);
-	ok(CGI::Info::document_root() eq $dir);
-	ok(CGI::Info::document_root() eq $dir);
+	ok(CGI::Info::documentroot() eq $dir);
+	ok(CGI::Info::documentroot() eq $dir);
 
 	$ENV{'DOCUMENT_ROOT'} = File::Spec->catdir(File::Spec->tmpdir(), 'xyzzy');
 	$dir = CGI::Info->rootdir();
@@ -39,7 +39,7 @@ ROOTDIR: {
 	delete $ENV{'C_DOCUMENT_ROOT'};
 	$ENV{'DOCUMENT_ROOT'} = File::Spec->catdir(File::Spec->tmpdir(), 'xyzzy');
 	$i = new_ok('CGI::Info');
-	$dir = $i->document_root();
+	$dir = $i->documentroot();
 	ok(-r $dir);
 	ok(-d $dir);