perltex (30sep07)

git-svn-id: svn://tug.org/texlive/trunk@5078 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 9 insertions, 9 deletions

diff --git a/Master/texmf-dist/tex/latex/perltex/perltex.sty b/Master/texmf-dist/tex/latex/perltex/perltex.sty
index 13c0694abdf..91d13ec61dc 100644
--- a/Master/texmf-dist/tex/latex/perltex/perltex.sty
+++ b/Master/texmf-dist/tex/latex/perltex/perltex.sty
@@ -22,7 +22,7 @@
 %% 
 \NeedsTeXFormat{LaTeX2e}[1999/12/01]
 \ProvidesPackage{perltex}
-    [2006/06/24 v1.3 LaTeX macros for use with PerlTeX]
+    [2007/09/29 v1.4 LaTeX macros for use with PerlTeX]
 \newif\ifplmac@have@perltex
 \plmac@have@perltextrue
 \@ifundefined{plmac@tag}{\plmac@have@perltexfalse}{}
@@ -233,16 +233,16 @@
   }
 \else
   \newcommand{\plmac@write@perl@i}[1]{\endgroup}
+  \gdef\plmac@show@placeholder#1#2\@empty{%
+    \ifx#1D\relax
+      \endgroup
+    \else
+      \endgroup
+      \fbox{Perl\TeX}%
+    \fi
+  }%
   \AtBeginDocument{%
     \renewcommand{\plmac@write@perl@i}[1]{%
-      \def\plmac@show@placeholder##1##2\@empty{%
-        \ifx##1D\relax
-          \endgroup
-        \else
-          \endgroup
-          \fbox{Perl\TeX}%
-        \fi
-      }%
       \plmac@show@placeholder#1\@empty
     }%
   }