From f5b3dd6a50eb01737734991b94c5225cd3c0d282 Mon Sep 17 00:00:00 2001
From: Johan Danielsson <joda@pdc.kth.se>
Date: Tue, 25 Jul 2000 09:54:05 +0000
Subject: [PATCH] add get_progname

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@8812 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 lib/roken/warnerr.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/roken/warnerr.c b/lib/roken/warnerr.c
index cadd431d3..e365019a7 100644
--- a/lib/roken/warnerr.c
+++ b/lib/roken/warnerr.c
@@ -43,6 +43,12 @@ RCSID("$Id$");
 const char *__progname;
 #endif
 
+const char *
+get_progname(void)
+{
+    return __progname;
+}
+
 void
 set_progname(char *argv0)
 {