Fix typo (over-allocation).

git-svn-id: https://svn.r-project.org/R/trunk@84684 00db46b3-68df-0310-9c12-caf00c1e9a41

src/unix/Rscript.c

@@ -195,7 +195,7 @@ int main(int argc_, char *argv_[])
  argv[0] = argv_[0];
 
  size_t len = strlen(s);
- char *buf = (char *)malloc((size_t) (len+1)*sizeof(char *));
+ char *buf = (char *)malloc((size_t) (len+1)*sizeof(char));
  if (!buf) {
  fprintf(stderr, "malloc failure\n");
  exit(1);