diff options
-rw-r--r-- | pidl/lib/Parse/Pidl/ODL.pm | 2 | ||||
-rwxr-xr-x | pidl/pidl | 2 |
2 files changed, 2 insertions, 2 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"); @@ -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; |