From 94a8122c42638abd9f81ed744cfaedf25beb7560 Mon Sep 17 00:00:00 2001
From: Alexandr Ciornii <alexchorny@gmail.com>
Date: Thu, 7 Feb 2013 12:18:28 +0200
Subject: h2xs: remove indirect object notation

---
 utils/h2xs.PL | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'utils')

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;
-- 
cgit v1.2.1