set $PLP::interface to executing backend

[perl/plp/.git] / eg / plpinfo.plp

diff --git a/eg/plpinfo.plp b/eg/plpinfo.plp
index 95783279858335b5911a3cd05a9927c5f250793b..748d40c93690444f0c1f38a7111d8e66c257e7ed 100644 (file)
--- a/eg/plpinfo.plp
+++ b/eg/plpinfo.plp
@@ -24,7 +24,7 @@
 use Config;
 printf "<tr><th>%s</th><td>%s</td></tr>\n", @$_ for (
        ["System"     => qx(uname -snrvm)],
-       ["Server API" => "CGI/FastCGI - ".$PLP::interface], #TODO
+       ["Server API" => $PLP::interface ? $PLP::interface : "?"],
        ["Perl"       => join ".", map ord, split //, $^V],
        ["Build Date" => $Config{cf_time}],
        ["Debug Build" => $^P ? "yes" : "no"],