Rev 11459: Fix wireshark generator. in file:///home/jelmer/bzr.samba/SAMBA_4_0/

[Jelmer Vernooij]

At file:///home/jelmer/bzr.samba/SAMBA_4_0/

------------------------------------------------------------
revno: 11459
revision-id: jelmer at samba.org-20070214142758-hs9r419wr8msdc10
parent: jelmer at samba.org-20070214141810-0df8ykq1d0dl6yia
committer: Jelmer Vernooij <jelmer at samba.org>
branch nick: SAMBA_4_0
timestamp: Wed 2007-02-14 15:27:58 +0100
message:
  Fix wireshark generator.
modified:
  source/pidl/lib/Parse/Pidl/Wireshark/NDR.pm svn-v2:16824 at 0c0555d6-39d7-0310-84fc-f1cc0bd64818-branches%2fSAMBA_4_0-source%2fpidl%2flib%2fParse%2fPidl%2fWireshark%2fNDR.pm
=== modified file 'source/pidl/lib/Parse/Pidl/Wireshark/NDR.pm'
--- a/source/pidl/lib/Parse/Pidl/Wireshark/NDR.pm	2007-02-08 23:54:31 +0000
+++ b/source/pidl/lib/Parse/Pidl/Wireshark/NDR.pm	2007-02-14 14:27:58 +0000
@@ -17,7 +17,7 @@
 package Parse::Pidl::Wireshark::NDR;
 
 use strict;
-use Parse::Pidl qw(error);
+use Parse::Pidl qw(error warning);
 use Parse::Pidl::Typelist qw(getType);
 use Parse::Pidl::Util qw(has_property property_matches make_str);
 use Parse::Pidl::NDR qw(ContainsString GetNextLevel);
@@ -823,7 +823,7 @@
 		header_fields=> {} 
 	};
 
-	ReadConformance($cnf_file, $conformance) or print STDERR "warning: No conformance file `$cnf_file'\n";
+	ReadConformance($cnf_file, $conformance) or warning(undef, "No conformance file `$cnf_file'");
 	
 	foreach my $bytes (qw(1 2 4 8)) {
 		my $bits = $bytes * 8;