diff options
| author | Doug MacEachern <dougm@opengroup.org> | 1997-07-17 23:04:28 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-08-07 00:00:00 +1200 |
| commit | 95b76e31e0b4c4fa94c15c8c06055a7dba0b7f75 (patch) | |
| tree | 9a7be16c4865996aff1a9facd91def3803c96f03 /pod | |
| parent | d1c897a19f90ad973e09b0d40809b915aba9d563 (diff) | |
| download | perl-95b76e31e0b4c4fa94c15c8c06055a7dba0b7f75.tar.gz | |
[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
Diffstat (limited to 'pod')
| -rw-r--r-- | pod/perlembed.pod | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/pod/perlembed.pod b/pod/perlembed.pod index 378a7d6435..e1ab91eaba 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 ***/ |