- pear demacros

Changed files:
    adapter.awk -> 1.467

diff --git a/adapter.awk b/adapter.awk
index 06a25f14c5f08314a1a48f1f1e335fd0c4c0381a..ae2337b3e02ff2bb1c024cab4ba57b72f9f20d0c 100644 (file)
--- a/adapter.awk
+++ b/adapter.awk
@@ -236,6 +236,8 @@ function b_makekey(a, b,    s) {
 
        if ($2 ~ /^mod_name$/)
                mod_name = $3
+       if ($2 ~ /^_?pearname$/)
+               pearname = $3
 
        sub(/[ \t]+$/, "");
        # do nothing further, otherwise adapter thinks we're at preamble
@@ -1667,6 +1669,12 @@ function demacroize(str)
        if (mod_name) {
                sub("%{mod_name}", mod_name, str);
        }
+       if (pearname) {
+               sub("%{_pearname}", pearname, str);
+       }
+       if (pearname) {
+               sub("%{pearname}", pearname, str);
+       }
        if (name) {
                sub("%{name}", name, str);
        }