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

diff --git a/pidl/lib/Parse/Pidl/ODL.pm b/pidl/lib/Parse/Pidl/ODL.pm
index 74d9ac7c04d9642c7e2d5138e2b8a125963439b8..14e77fa93f249b6039d459bed4261b358695ded7 100644 (file)
--- 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");
 

diff --git a/pidl/pidl b/pidl/pidl
index 2a46e92925c18eb7e7a0052fffad53ea0dcbf26f..c65092ee9ad9b13bb57af1c1457865d2484f62f3 100755 (executable)
--- a/pidl/pidl
+++ b/pidl/pidl
@@ -605,7 +605,7 @@ sub process_file($)
                require Parse::Pidl::IDL;
 
                $pidl = Parse::Pidl::IDL::parse_file($idl_file, \@opt_incdirs);
-               defined @$pidl || die "Failed to parse $idl_file";
+               defined $pidl || die "Failed to parse $idl_file";
        }
 
        require Parse::Pidl::Typelist;