From 7170cfaaf3b8663ac20be0231baa8ba90e80e5af Mon Sep 17 00:00:00 2001
From: Matthieu Patou <mat@matws.net>
Date: Tue, 2 Aug 2011 11:50:32 +0400
Subject: pidl: don't expect to have quote when creating import headers

Currently the $_ didn't contains the quote anymore, in order to avoid
any further regression the cleanup of quote is done before so that if
$_ still have quotes we clean them in anycase.
---
 pidl/lib/Parse/Pidl/Wireshark/NDR.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pidl/lib')

diff --git a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
index 64b8dcf18c..83fc3cd3bf 100644
--- a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
+++ b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
@@ -770,8 +770,8 @@ sub ProcessImport
 	my @imports = @_;
 	foreach (@imports) {
 		next if($_ eq "security");
-		s/\.idl\"$//;
 		s/^\"//;
+		s/\.idl"?$//;
 		$self->pidl_hdr("#include \"packet-dcerpc-$_\.h\"");
 	}
 	$self->pidl_hdr("");
-- 
cgit