summaryrefslogtreecommitdiff
path: root/pidl/lib
diff options
context:
space:
mode:
authorVadim Zhukov <persgray@gmail.com>2013-05-25 15:19:24 +0100
committerJelmer Vernooij <jelmer@samba.org>2013-05-25 18:10:53 +0200
commit92254d09e0ee5a7d9d0cd91fe1803f54e64d9a5f (patch)
treee4fba9a31041ad3ae0f219a3b85b835a1fc8c2d4 /pidl/lib
parent39d7982625ba05befa7bc2430a79d44984eb410e (diff)
downloadsamba-92254d09e0ee5a7d9d0cd91fe1803f54e64d9a5f.tar.gz
samba-92254d09e0ee5a7d9d0cd91fe1803f54e64d9a5f.tar.bz2
samba-92254d09e0ee5a7d9d0cd91fe1803f54e64d9a5f.zip
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')
-rw-r--r--pidl/lib/Parse/Pidl/ODL.pm2
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");