The branch, master has been updated via 92254d0 pidl: Recent Perl warns about "defined(@var)" constructs. from 39d7982 building RPMs on RHEL fail because of a typo.
http://gitweb.samba.org/?p=samba.git;a=shortlog;h=master - Log ----------------------------------------------------------------- commit 92254d09e0ee5a7d9d0cd91fe1803f54e64d9a5f Author: Vadim Zhukov <persg...@gmail.com> Date: Sat May 25 15:19:24 2013 +0100 pidl: Recent Perl warns about "defined(@var)" constructs. Signed-off-by: Jelmer Vernooij <jel...@samba.org> Autobuild-User(master): Jelmer Vernooij <jel...@samba.org> Autobuild-Date(master): Sat May 25 18:10:53 CEST 2013 on sn-devel-104 ----------------------------------------------------------------------- Summary of changes: pidl/lib/Parse/Pidl/ODL.pm | 2 +- pidl/pidl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) Changeset truncated at 500 lines: diff --git a/pidl/lib/Parse/Pidl/ODL.pm b/pidl/lib/Parse/Pidl/ODL.pm index 74d9ac7..14e77fa 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"); diff --git a/pidl/pidl b/pidl/pidl index 2a46e92..c65092e 100755 --- 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; -- Samba Shared Repository