From: Doug MacEachern <dougm@opengroup.org>
Date: Thu, 17 Jul 1997 11:04:28 +0000 (+1200)
Subject: [BUG] perlembed.pod:power.c example
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95b76e31e0b4c4fa94c15c8c06055a7dba0b7f75;p=p5sagit%2Fp5-mst-13.2.git

[BUG] perlembed.pod:power.c example

I think this one has been around since perlembed.pod first became more
than "Look at perlmain.c and do something like that" :-)  This is on
top of the patch I sent the other day.

p5p-msgid: 199707181344.JAA10565@postman.opengroup.org
---

diff --git a/pod/perlembed.pod b/pod/perlembed.pod
index 378a7d6..e1ab91e 100644
--- a/pod/perlembed.pod
+++ b/pod/perlembed.pod
@@ -578,15 +578,12 @@ deep breath...
 
     int main (int argc, char **argv, char **env)
     {
-      char *my_argv[2];
+      char *my_argv[] = { "", "power.pl" };
 
       my_perl = perl_alloc();
       perl_construct( my_perl );
 
-      my_argv[1] = (char *) malloc(10);
-      sprintf(my_argv[1], "power.pl");
-
-      perl_parse(my_perl, NULL, argc, my_argv, NULL);
+      perl_parse(my_perl, NULL, 2, my_argv, (char **)NULL);
       perl_run(my_perl);
 
       PerlPower(3, 4);                      /*** Compute 3 ** 4 ***/