aboutsummaryrefslogblamecommitdiffstats
path: root/testing/wmi-client/perl-support.patch
blob: bd7d6cf82f8252ef3ab722a450f245efcc1c86a1 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13












                                                                               
diff --git a/Samba/source/pidl/pidl b/Samba/source/pidl/pidl
index 8084213..59e467f 100755
--- a/Samba/source/pidl/pidl
+++ b/Samba/source/pidl/pidl
@@ -580,7 +580,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";
+		@$pidl || die "Failed to parse $idl_file";
 		require Parse::Pidl::Typelist;
 		Parse::Pidl::Typelist::LoadIdl($pidl);
 	}