The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: -5 130 280 310
%%Creator: Gisle Aas (Copyright 1998), Reini Urban (Copyright 2009, 2010)

%require "common.ps"
%require "sv.ps"
%require "box.ps"
%require "rect.ps"
%require "ptr.ps"
%require "mws.ps"
%require "magic-10.ps"

0 300 sv

/Courier 8 SF
40  302 M (sv) rshow
105 302 M (xpvlv) rshow

% xiv_u as GvNAME
% 55 300 4 4 newbox
% unused xnv_u
gsave 0.8 setgray 56 210 104 225 rect F grestore
55 300 7 10 newbox
55 300 10 box

/Helvetica 11 SF
60 303 15 sub M

[(STASH) (MAGIC) (cur) (len) (GvNAME) (xnv_u) (TARGOFF) (TARGLEN) (TARG) (TYPE)] {
    gsave
    currentpoint 30 mws pop
    grestore
    0 -15 rmoveto
} forall

97.5 157.5 15 add 130 ptr1
130 177.5 sv

% MAGIC
97.5 277.5 130 277.5 ptrn

gsave
130 282.5 translate 0.7 dup scale
0 0 ('x') smagic
65 -15 [() () () () () () (&magic_setsubstr) ()] mgvtbl
grestore