diff options
author | Vadim Zhukov <persgray@gmail.com> | 2013-05-25 15:19:24 +0100 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2013-05-25 18:10:53 +0200 |
commit | 92254d09e0ee5a7d9d0cd91fe1803f54e64d9a5f (patch) | |
tree | e4fba9a31041ad3ae0f219a3b85b835a1fc8c2d4 /pidl/lib/Parse | |
parent | 39d7982625ba05befa7bc2430a79d44984eb410e (diff) | |
download | samba-92254d09e0ee5a7d9d0cd91fe1803f54e64d9a5f.tar.gz |
pidl: Recent Perl warns about "defined(@var)" constructs.
Signed-off-by: Jelmer Vernooij <jelmer@samba.org>
Autobuild-User(master): Jelmer Vernooij <jelmer@samba.org>
Autobuild-Date(master): Sat May 25 18:10:53 CEST 2013 on sn-devel-104
Diffstat (limited to 'pidl/lib/Parse')
-rw-r--r-- | pidl/lib/Parse/Pidl/ODL.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pidl/lib/Parse/Pidl/ODL.pm b/pidl/lib/Parse/Pidl/ODL.pm index 74d9ac7c04..14e77fa93f 100644 --- a/pidl/lib/Parse/Pidl/ODL.pm +++ b/pidl/lib/Parse/Pidl/ODL.pm @@ -70,7 +70,7 @@ sub ODL2IDL next; } my $podl = Parse::Pidl::IDL::parse_file($idl_path, $opt_incdirs); - if (defined(@$podl)) { + if (defined($podl)) { require Parse::Pidl::Typelist; my $basename = basename($idl_path, ".idl"); |