diff options
| author | Alex Waugh <alex@alexwaugh.com> | 2006-04-17 01:14:26 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-18 12:48:31 +0000 |
| commit | 7ee146b12403586cf7249a676b2be9b7658f67fd (patch) | |
| tree | 1b79a89c55197bf11d0879b5cceab0caa61a53a5 /util.c | |
| parent | 4154741246a440c7ccc4e633e6d115949af4ee56 (diff) | |
| download | perl-7ee146b12403586cf7249a676b2be9b7658f67fd.tar.gz | |
Support compiling for RISC OS
Message-ID: <2498b2184e.ajw498@caramel.cp15.org>
p4raw-id: //depot/perl@27884
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1601,15 +1601,15 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val) } else safesysfree(environ[i]); - nlen = strlen(nam); - vlen = strlen(val); + nlen = strlen(nam); + vlen = strlen(val); - environ[i] = (char*)safesysmalloc((nlen+vlen+2) * sizeof(char)); - /* all that work just for this */ - my_setenv_format(environ[i], nam, nlen, val, vlen); + environ[i] = (char*)safesysmalloc((nlen+vlen+2) * sizeof(char)); + /* all that work just for this */ + my_setenv_format(environ[i], nam, nlen, val, vlen); } else { # endif -# if defined(__CYGWIN__) || defined(EPOC) || defined(__SYMBIAN32__) +# if defined(__CYGWIN__) || defined(EPOC) || defined(__SYMBIAN32__) || defined(__riscos__) # if defined(HAS_UNSETENV) if (val == NULL) { (void)unsetenv(nam); |