From 28c517bd5a2418308e95b6371d5ec0240ede5762 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 27 Mar 2012 17:15:31 +0000
Subject: recognize binmode() (for eg urpmi)

---
 fake_packages/gen.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'fake_packages')

diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl
index 8390534..a8704c9 100755
--- a/fake_packages/gen.pl
+++ b/fake_packages/gen.pl
@@ -135,6 +135,7 @@ sub parse_pm {
             $name =~ s/{$//;
             $l{$current_package}{$name} = [] if !defined($l{$current_package}{$name}) && !is_blacklisted($name);
 	    $state = 'waiting_for_param';
+	    warn ">> N=$name\n";
             get_paras($name, $_) if /shift->/;
 	} elsif ($state eq 'waiting_for_param' && /=\s*\@_/) {
             get_paras($name, $_);
-- 
cgit v1.2.1