In DEC OSF aka Digital UNIX aka Tru64 add the version

[p5sagit/p5-mst-13.2.git] / mg.c

diff --git a/mg.c b/mg.c
index aee2790..84fff24 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -614,7 +614,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
            {
                i = t1 - s1;
                s = rx->subbeg + s1;
-                if (!rx->subbeg)
+               if (!rx->subbeg)
                    break;
 
              getrx:
@@ -2054,6 +2054,9 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
            for (i = 1; i < PL_origargc; i++)
                PL_origargv[i] = Nullch;
        }
+#ifdef HAS_SETPROCTITLE
+       setproctitle("%s", SvPV_nolen(sv));
+#endif
        break;
 #endif
 #ifdef USE_THREADS