diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-31 22:42:23 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-31 22:42:23 +0000 |
| commit | 12a98ad5c89fb8cd6cec9de80136f28ee2c769ff (patch) | |
| tree | 0870d4055f72387143cb48c709ab02debd5f4f4a /embed.pl | |
| parent | cd183fd9a4ee43af22288167daab9fa3d4dd8bae (diff) | |
| download | perl-12a98ad5c89fb8cd6cec9de80136f28ee2c769ff.tar.gz | |
missing files in previous submit
p4raw-id: //depot/perl@4744
Diffstat (limited to 'embed.pl')
| -rwxr-xr-x | embed.pl | 12 |
1 files changed, 7 insertions, 5 deletions
@@ -324,7 +324,7 @@ walk_table { my $ret = ""; if (@_ == 1) { my $arg = shift; - $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifdef|else|endif)\b/; + $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/; } else { my ($flags,$retval,$func,@args) = @_; @@ -357,7 +357,7 @@ walk_table { my $ret = ""; if (@_ == 1) { my $arg = shift; - $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifdef|else|endif)\b/; + $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/; } else { my ($flags,$retval,$func,@args) = @_; @@ -417,7 +417,7 @@ walk_table { my $ret = ""; if (@_ == 1) { my $arg = shift; - $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifdef|else|endif)\b/; + $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/; } else { my ($flags,$retval,$func,@args) = @_; @@ -732,7 +732,7 @@ walk_table { my $ret = ""; if (@_ == 1) { my $arg = shift; - $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifdef|else|endif)\b/; + $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/; } else { my ($flags,$retval,$func,@args) = @_; @@ -943,7 +943,7 @@ walk_table { my $ret = ""; if (@_ == 1) { my $arg = shift; - $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifdef|else|endif)\b/; + $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/; } else { my ($flags,$retval,$func,@args) = @_; @@ -1068,7 +1068,9 @@ public: CPerlObj(IPerlMem*, IPerlMem*, IPerlMem*, IPerlEnv*, IPerlStdIO*, IPerlLIO*, IPerlDir*, IPerlSock*, IPerlProc*); void* operator new(size_t nSize, IPerlMem *pvtbl); +#ifndef __BORLANDC__ static void operator delete(void* pPerl, IPerlMem *pvtbl); +#endif int do_aspawn (void *vreally, void **vmark, void **vsp); #endif #if defined(PERL_OBJECT) |