From 3409ce86e76aa201842c3ce968e96e40abe1d246 Mon Sep 17 00:00:00 2001
From: Roberto De Ioris <roberto@unbit.it>
Date: Sat, 5 Jan 2013 08:38:07 +0100
Subject: [PATCH] added --perl-version

---
 plugins/psgi/psgi_plugin.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/plugins/psgi/psgi_plugin.c b/plugins/psgi/psgi_plugin.c
index de70395b..0f47d4db 100644
--- a/plugins/psgi/psgi_plugin.c
+++ b/plugins/psgi/psgi_plugin.c
@@ -16,6 +16,9 @@ struct uwsgi_option uwsgi_perl_options[] = {
         {"psgi", required_argument, 0, "load a psgi app", uwsgi_opt_set_str, &uperl.psgi, 0},
         {"perl-no-die-catch", no_argument, 0, "do not catch $SIG{__DIE__}", uwsgi_opt_true, &uperl.no_die_catch, 0},
         {"perl-local-lib", required_argument, 0, "set perl locallib path", uwsgi_opt_set_str, &uperl.locallib, 0},
+#ifdef PERL_VERSION_STRING
+        {"perl-version", no_argument, 0, "print perl version", uwsgi_opt_print, PERL_VERSION_STRING, UWSGI_OPT_IMMEDIATE},
+#endif
         {0, 0, 0, 0, 0, 0, 0},
 
 };