diff options
| author | Alexandr Ciornii <alexchorny@gmail.com> | 2013-02-07 12:18:28 +0200 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-06-24 11:11:11 +1000 |
| commit | 94a8122c42638abd9f81ed744cfaedf25beb7560 (patch) | |
| tree | 3d8860218ad0e618b2e5c5c9ac0ea0a189691e73 /utils | |
| parent | 64187737d041904032085ee29b146553c04709df (diff) | |
| download | perl-94a8122c42638abd9f81ed744cfaedf25beb7560.tar.gz | |
h2xs: remove indirect object notation
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2xs.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 25bd0ec118..5bda61db69 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -991,8 +991,8 @@ if( ! $opt_X ){ # use XS, unless it was disabled } warn "Scanning $filename for functions...\n"; my @styles = $Config{gccversion} ? qw(C++ C9X GNU) : qw(C++ C9X); - $c = new C::Scan 'filename' => $filename, 'filename_filter' => $filter, - 'add_cppflags' => $addflags, 'c_styles' => \@styles; + $c = C::Scan->new('filename' => $filename, 'filename_filter' => $filter, + 'add_cppflags' => $addflags, 'c_styles' => \@styles); $c->set('includeDirs' => ["$Config::Config{archlib}/CORE", $cwd]); $c->get('keywords')->{'__restrict'} = 1; |