From 882ed9f801f347b87e162777b296d5be79b8b7ba Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Tue, 23 Jul 2002 11:21:56 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'V1_1_8_9mdk'.

---
 perl-install/share/po/fake_c.pl | 22 ----------------------
 1 file changed, 22 deletions(-)
 delete mode 100755 perl-install/share/po/fake_c.pl

(limited to 'perl-install/share/po/fake_c.pl')

diff --git a/perl-install/share/po/fake_c.pl b/perl-install/share/po/fake_c.pl
deleted file mode 100755
index 21cf25b04..000000000
--- a/perl-install/share/po/fake_c.pl
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl -lp
-
-s|^(__?\()| $1|;		# add a blank at the beginning (?!)
-
-s|_\(\[(.*),\s*(.*),\s*(.*)\]|ngettext($2,$3,$1)|; # special plural form handling
-
-s,\Qs/#.*//,,;			# ugly special case
-
-s,(^|[^\$])#([^+].*),"$1/*" . simpl($2) . "*/",e; 
-                                # rewrite comments to C format except for:
-                                # - ``#+ xxx'' comments which are kept
-                                # - ``$#xxx'' which are not comments
-
-s|//|/""/|g;			# ensure // or not understood as comments
-
-s|$|\\n\\|;			# multi-line strings not handled in C
-
-sub simpl {
-    local $_ = $_[0];
-    s,\*/,,g;
-    $_;
-}
-- 
cgit v1.2.1