Index: _samples/perl/sample01.cgi =================================================================== --- _samples/perl/sample01.cgi (revision 1762) +++ _samples/perl/sample01.cgi (working copy) @@ -105,8 +105,8 @@ if($DefServerPath) { $dir = $DefServerPath; } else { - if($ENV{'PATH_INFO'}) { - $dir = $ENV{'PATH_INFO'}; + if($ENV{'REQUEST_URI'}) { + $dir = $ENV{'REQUEST_URI'}; } elsif($ENV{'FILEPATH_INFO'}) { $dir = $ENV{'FILEPATH_INFO'}; } Index: _samples/perl/sample02.cgi =================================================================== --- _samples/perl/sample02.cgi (revision 1762) +++ _samples/perl/sample02.cgi (working copy) @@ -170,8 +170,8 @@ if($DefServerPath) { $dir = $DefServerPath; } else { - if($ENV{'PATH_INFO'}) { - $dir = $ENV{'PATH_INFO'}; + if($ENV{'REQUEST_URI'}) { + $dir = $ENV{'REQUEST_URI'}; } elsif($ENV{'FILEPATH_INFO'}) { $dir = $ENV{'FILEPATH_INFO'}; } Index: _samples/perl/sample03.cgi =================================================================== --- _samples/perl/sample03.cgi (revision 1762) +++ _samples/perl/sample03.cgi (working copy) @@ -155,8 +155,8 @@ if($DefServerPath) { $dir = $DefServerPath; } else { - if($ENV{'PATH_INFO'}) { - $dir = $ENV{'PATH_INFO'}; + if($ENV{'REQUEST_URI'}) { + $dir = $ENV{'REQUEST_URI'}; } elsif($ENV{'FILEPATH_INFO'}) { $dir = $ENV{'FILEPATH_INFO'}; } Index: _samples/perl/sample04.cgi =================================================================== --- _samples/perl/sample04.cgi (revision 1762) +++ _samples/perl/sample04.cgi (working copy) @@ -162,8 +162,8 @@ if($DefServerPath) { $dir = $DefServerPath; } else { - if($ENV{'PATH_INFO'}) { - $dir = $ENV{'PATH_INFO'}; + if($ENV{'REQUEST_URI'}) { + $dir = $ENV{'REQUEST_URI'}; } elsif($ENV{'FILEPATH_INFO'}) { $dir = $ENV{'FILEPATH_INFO'}; } Index: _whatsnew.html =================================================================== --- _whatsnew.html (revision 1762) +++ _whatsnew.html (working copy) @@ -107,6 +107,8 @@