JFIF 

  
 
       	 ( %"1!%)+...383,7(-.+



-+++--++++---+-+-----+---------------+---+-++7-----       
" 

     

           
    H 
     
 !1AQaq"   2B    #R   Tbr   3cs    DS  $C   
 


            
   %

 
       
!1AQa"23     
  ?     p       Y  \?       p       Y  \?       0       [  	   i~T b
q 8O p   O O ` R    i   < Ft I   8 Df   }   6
 F y j  h    /  : c 
"Y   l>     te:q \o e 󲍷 HT4&     6        	  7 i  j|   >b  S?*       *h   r   U S炟[A a [    & j?   +EzP We  rJFt	 B  χ%#tE  z   O۫!1   ͏  % <!vB '  6  a  e`  0U[- Б4)M  YK* h  %  kÇ m - W Ls ?n  ~        l a     l  ե    r  L[   (  'V  l8  R vLvP :  N  F   >   ]  ( :@<       t  +  % Á h O J tM  >   w3
Y  牋4Ǎ   T >  = why ,        a    ѪQ|%6  A	 %: j<>ɗ   _ Cb      ݃|R  c f溪 t.С T  *Ŀ -{   czů _ ^X   miB[X d 1,  zE  &
 9g f 9 '.;  i}!    q  ٤ё    A    e"A$˝ s    
  	 # x   (l
	   3  5m!
rt`  0~'j2 (]S  kv,  l  JA   
J3E8 i :cɞ eZ   \ k (79   : X    & *  .   (  2    Hi TF  [   R  䢍mg .  <  S0    U f#V ;Ֆ P@3 o< -   .L|k   f 6@ eu | a Ɵ     >  ?cK 6 T Ɣ  sĤ ;H2 Rچ \ַ n'   # I   %     7  qT 3I  
 5I7 ! O          $Tc  [ ֳ  ';A     g
A 2Z
"i vd  .i   ) ]      & {V i  .      ?h Mt   [      V( }=ibԡ    b
 L􁥇piη_Z< z  )i wi  2h 3 = d 8 1  c   7  7 	 \ ) }	 f  pA L% c2    Qz ;T8s  q )QFM  X ±
N aF  8 !U		Z R   PV   in  -G    ˊ   z }     F }Uw # 5B {  } < D
   &  Db   M ."
   * 'V |   gll  klz[    A b E  dѻXx9 ܣ T/`  vI ݵ ˂ G  *   r|*}<  @ mĒM  .  Y |6 U j   qO
 kD   5   ;     G k \
	   = =S    S   p  Qű   ?  1ѕ Z ?h 
L l{Y*K ٛzc     + 	 - k  % E A'} >< I bp /q  voX  w,\   6Z[Xd  @֗ $ J # >'  
   <)4 ry٣| A n5  y  M 2{"}   l  WX\l   g  O  /  B f   [.P Zs  * T܈ QN      V (  *eՓ 5T    F  D [8'ҥa ڶk7a
*   'ҷ\8  \@\    q+D r m΅_ 滊Ӝ   R 9M  D l lffc+  ,      Ǥ=Œ 7    /  
         + ,u M   bm:  P { Gz[     KH ` ؊   P8Aq.C     k pj k N q  , N  - {Z    44 s   V R  m"
6? D9  T  ꋇ`4        orqК Z x4    u  f   [P ,Q  aX `P  Z    Y g A x
 6L x  * Q
ϒ h 
= ,6 #r <      , ꕀ a s '% "    B  H 3߰ $ Xn ֒ 2 Te  x  
    
 K  { t Ϋ j  Z[  7L 4V CE ]m  y  4-dz    x.* 
   b  h:   s`BT R  g⻩ j   sF  J Fl ȕXᓁ ~*j  +(  6-   G  y <ǒ . F H w(+)    z  T Fߘ  ;DmV 3 u@m  X   3B     <·  z, @ ŷd2] 8s I ޯ^ 9 u ~ A  4 M?
K]   Pl@s_ p:  ZR   JC[CS.h   ˜  ]   wR k7X k     =      ') 71 c    
` .{ p  j\ {1h{o  = U  G֌  -B m+AZX  
 H  Jm ; 䡟      i g $ Mk5 L    v   	,=f "   5  x6{ɏ ID0e v mi'     9$  *£ 9    Tԅ >JV } }$p[bԮ*[jzS*8
  T ͖ U wo$  =LT  ~     $榍q  + kFm)   i  qފ   (        #5    ﯅ X   *F#TXJ 
u JV &=i s1 3 'f  5 <=[ ޭ
 P ;   _~ģ 8r 
 w; hDT >  G 8   z   q ZcqJ   - [ܘbň  b   31 n i   ;1   
 X , q $>    Z Z 1{    + յ  T$ K]   *  tMI  Zb  iҘ}b 0  5  [5 ^ݜW   h 
 OWun  5 a2Z.G2 YL]j t 
 	 ӑ%" <    s  UZv  i  M  . V   #k  i <N      l˻{  <
[ Y  }j *    I e &gb p9 ^!   ? ^ Tzo@Q A & [    }пF Hq   {  H ?. %      9  ҉  ̥ s zW a hwօ  $m   :    | x 
 0 з$ a n            
 @k  gt 䢩 P 5 ?   m  ^  8  8    W     ,̓     V     ǎB  ÅZ    8; | 5)7a &2ٸ     ;  7" "7M d
   f5   ;" p5  3  J  G  & <{  K ֓3:   GP S ;
   n  p W)z'    #Xf2&  
    " \!Ñ9 
0 2A * M  $X
    X ,X    ' nF  lqJ X uaJ4    7 ;h"Z   ,vۋ N E( u )  a   k $ 1kmG  t >̖ ) T[)B   
xB B  T . ~ @VĶr#  *  ZND H; i 
],    p (     T.uC 4@  G  ) Cx  0 #:  F bR\(   
 f 4މF HX  ,  E    ] v ?tL vBY  6 u5 AQ 1    x H Ї ^	 KwJ ֎5 C  vܫ/B0$ k  = b ( )w A   	11 = Q  626  /`G  <} - 7KEH    Ȥmݱ     Snm = 䫚mݱ   ~  U J   B|E L y  jD $G    7 R8 ҅Ǜ	WVe#  	p Fx~ ݤF 0   K  S<6  WШ
;    ʐ \ u   ݖVN k 7o X     F   g   M~  =p,X 
   ŋ
  j .    
q Q  ZE   =6 ]   s >v  ^ \wq9r  \  kUR $ * Nq?Þ *!s  :TU_u T+ X 
   ,   BTs $؛4m椴z K]   P @ # `  =I fiV   nRm+ FPOh 0B 
 + 5c
v :P' y   V~ ӆ u kDoh$ \* %Ю=   aȼ   .- V   'ly 1 3 # E  S gV m <Hq ,sV   ߼H 􅹅M i  "   E Ø j|  VOu "f a   x   O` dHH  4K*H$ 5 
  
  CU A  sr 2    iڱ   e  _S   3  -3     cgD ڦ cX}'  J 9  ӭ 	     mO  V     I~   hh   wxl Z G 4 = )   
 vƎ%Uq 4q   h       1R c     y'   y  q   ;    S     z('S $ }*evھK  8 
  	j ] -  6    K+8 iS45jr   QD D ]R  SP 
xJ l>
= \ " WU  Ǽ   n 
G  
  N	D õN   ;H y ȩP  {:?R Ԩ F   b   JS | R iv     賴Iئ T!   ت   @q wn CW @JU  m6] :  x
' +  XvӦ m=  7  $ B ~ p%՟U   N@   ~w    5  ' e  5 //  ~ T   7  #    
p $ e  * ӊE WE s g  v SsLp  W  EW   H;  !CY Z  f  #1W.
\uW \,\ fj <qTb n  [vxx   '  1   M P  H)   A7s,| F   k 9  *  ; ! $Ei             S  $ N  z 5r    D   !    &@m  ^  d	q5Ln  N;.6  N|# "1N x  <3('&  
t  ~  u 1Tb㫨9ꖛ b d$ߣ=#   mU e $EF 5ýY       Ǘ ssM]  
0  JRӪ i +O58   x"	\    i  i
  
 
M+M  9  A  Q    K~ Ñg ִ~  [3GU ҽ# k ԮҔ   dWV IP  8u  E
 qLj   CB {A^  ;  `    
˼	 t  .tƐm*n y4o& x n   aup  j8 m   !o ; 0y^  ^Eѿ jz  )v  nÄL
 ^       3k	   h ]i    *     
C j j zn  
 #b'F 
 v '  'T  H  %M   & nj 1  	  
 i s   R-  k   7:  0    /a٬  #   
 aiVc .   㵔
 Yg        f 7 h᷸ }&D9  s       C   bFC|  (    -% 'a	̿)  n    ގX 4  H^ Α @  Eh  L8 j 
   V  R  5u 
V4lZ  = x     
     __yM1t ?u  Ik g @ [   X J j :nkŢu } Gz  /I 芬 48q F  R =  {   R icS
 ۠ Nt   £,w4r 쮻~x( U   # & դ>    9  {9eV [ j  u]  2 qњ J 0 sÄ|   0튔b > { _F`ة  :  ,v   fc1 "     n1#= 
  v~H<Q- k7 ; L   C .7
 hKL@ v  $ 4     R  Z7  j   r r J_P .#g g ) ` <K   '   3rw  ئ  Lf   
, I {Ƕ 8 $K  U/Oi>   A   ܀Ӛ] ;  I   Qi  9yw KG    zQY     Z07 X  h; M)i CH- T  |A0{  LږT  kܒd  rmm  جPF  cbE T  x  K    Ӯ7  (\4  øUu@j yĵ;  !  b.W =m    Kk
 K^  #p* 14qkZ 5    5 %  <   ԥ C	մ  $ ֓ ]٬q  [4  ! ϗ b쳐X A  ~`  r 8      < >   ?xs    	/ ;       {"@  z [ ߂ U_<ǟ 4 N  61 q u   F    J_   ~  A ݄ϗr D;xT   `ɫ su  O`?    
L # c5 o ؂y    ZR <&J +      i!  0 Ao  L  -2  W. t^ (K mH V@x  y      ^: 3w  7    ⹮:', M  n  + b 
Lȑ nR   %     Q: f  "P t   c l & ژ kv  + v  ,= v 6 X
y*  t  < : a <Q & ]i4音 z   H  xc      m퐡 ` ) C eh dHP6 ME Z ͨ	 T r뢘6*  ; s  ]ʎ    wR  up*  	 m : {  MU      o7:  
q 'E   k^u T $ $ {  BP al     ^} A
,  $ ]  . :    Xnno7X  B    1 >   ϲ= 6rO]XI    zڭ   6  w\d ~v   k ^m<     \)    ;  l   E  cѾ@vnM ,  
 Bx  z   %3 "}ٕ  >
B  ; ]V+P F_   >
ؚe|  OmF    q $/x x z` 9 "  ij !7.\Td 9M  i    50ގn   4  O * ^ Q     8= 
 s '  ٫ %P [O
  P V s  . ,kc   A9n X -ޚN[" QՉ M    XJ  aLj   m  ڠu    Q   
/ Ux:  ܒ Đ   3V   n 6 *  K   c  U  hs  j  j#, m R  lb UT  8  0  r`  	Ї
 "  

 	 6  f   oܱԷ-<  ) a  'ڻ TXq   Y
 Hy 9 IW Y uMF 
 ϒAq 4 / 
   'i$  = 
 | K 4 0 | 6p 0 )o ct H+CA-  x | X   
l8   3 :   KX U  #!/usr/bin/perl
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
        if $running_under_some_shell;

# perlivp v5.26.3

BEGIN { pop @INC if $INC[-1] eq '.' }

sub usage {
    warn "@_\n" if @_;
    print << "    EOUSAGE";
Usage:

    $0 [-p] [-v] | [-h]

    -p Print a preface before each test telling what it will test.
    -v Verbose mode in which extra information about test results
       is printed.  Test failures always print out some extra information
       regardless of whether or not this switch is set.
    -h Prints this help message.
    EOUSAGE
    exit;
}

use vars qw(%opt); # allow testing with older versions (do not use our)

@opt{ qw/? H h P p V v/ } = qw(0 0 0 0 0 0 0);

while ($ARGV[0] =~ /^-/) {
    $ARGV[0] =~ s/^-//; 
    for my $flag (split(//,$ARGV[0])) {
        usage() if '?' =~ /\Q$flag/;
        usage() if 'h' =~ /\Q$flag/;
        usage() if 'H' =~ /\Q$flag/;
        usage("unknown flag: '$flag'") unless 'HhPpVv' =~ /\Q$flag/;
        warn "$0: '$flag' flag already set\n" if $opt{$flag}++;
    } 
    shift;
}

$opt{p}++ if $opt{P};
$opt{v}++ if $opt{V};

my $pass__total = 0;
my $error_total = 0;
my $tests_total = 0;

my $perlpath = '/usr/bin/perl';
my $useithreads = 'define';

print "## Checking Perl binary via variable '\$perlpath' = $perlpath.\n" if $opt{'p'};

my $label = 'Executable perl binary';

if (-x $perlpath) {
    print "## Perl binary '$perlpath' appears executable.\n" if $opt{'v'};
    print "ok 1 $label\n";
    $pass__total++;
}
else {
    print "# Perl binary '$perlpath' does not appear executable.\n";
    print "not ok 1 $label\n";
    $error_total++;
}
$tests_total++;


print "## Checking Perl version via variable '\$]'.\n" if $opt{'p'};

my $ivp_VERSION = "5.026003";


$label = 'Perl version correct';
if ($ivp_VERSION eq $]) {
    print "## Perl version '$]' appears installed as expected.\n" if $opt{'v'};
    print "ok 2 $label\n";
    $pass__total++;
}
else {
    print "# Perl version '$]' installed, expected $ivp_VERSION.\n";
    print "not ok 2 $label\n";
    $error_total++;
}
$tests_total++;

# We have the right perl and version, so now reset @INC so we ignore
# PERL5LIB and '.'
{
    local $ENV{PERL5LIB};
    my $perl_V = qx($perlpath -V);
    $perl_V =~ s{.*\@INC:\n}{}ms;
    @INC = grep { length && $_ ne '.' } split ' ', $perl_V;
}

print "## Checking roots of the Perl library directory tree via variable '\@INC'.\n" if $opt{'p'};

my $INC_total = 0;
my $INC_there = 0;
foreach (@INC) {
    next if $_ eq '.'; # skip -d test here
    if (-d $_) {
        print "## Perl \@INC directory '$_' exists.\n" if $opt{'v'};
        $INC_there++;
    }
    else {
        print "# Perl \@INC directory '$_' does not appear to exist.\n";
    }
    $INC_total++;
}

$label = '@INC directoreis exist';
if ($INC_total == $INC_there) {
    print "ok 3 $label\n";
    $pass__total++;
}
else {
    print "not ok 3 $label\n";
    $error_total++;
}
$tests_total++;


print "## Checking installations of modules necessary for ivp.\n" if $opt{'p'};

my $needed_total = 0;
my $needed_there = 0;
foreach (qw(Config.pm ExtUtils/Installed.pm)) {
    $@ = undef;
    $needed_total++;
    eval "require \"$_\";";
    if (!$@) {
        print "## Module '$_' appears to be installed.\n" if $opt{'v'};
        $needed_there++;
    }
    else {
        print "# Needed module '$_' does not appear to be properly installed.\n";
    }
    $@ = undef;
}
$label = 'Modules needed for rest of perlivp exist';
if ($needed_total == $needed_there) {
    print "ok 4 $label\n";
    $pass__total++;
}
else {
    print "not ok 4 $label\n";
    $error_total++;
}
$tests_total++;


print "## Checking installations of extensions built with perl.\n" if $opt{'p'};

use Config;

my $extensions_total = 0;
my $extensions_there = 0;
if (defined($Config{'extensions'})) {
    my @extensions = split(/\s+/,$Config{'extensions'});
    foreach (@extensions) {
        next if ($_ eq '');
        if ( $useithreads !~ /define/i ) {
            next if ($_ eq 'threads');
            next if ($_ eq 'threads/shared');
        }
        # that's a distribution name, not a module name
        next if $_ eq 'IO/Compress';
        next if $_ eq 'Devel/DProf';
        next if $_ eq 'libnet';
        next if $_ eq 'Locale/Codes';
        next if $_ eq 'podlators';
        next if $_ eq 'perlfaq';
        # test modules
        next if $_ eq 'XS/APItest';
        next if $_ eq 'XS/Typemap';
           # VMS$ perl  -e "eval ""require \""Devel/DProf.pm\"";"" print $@"
           # \NT> perl  -e "eval \"require './Devel/DProf.pm'\"; print $@"
           # DProf: run perl with -d to use DProf.
           # Compilation failed in require at (eval 1) line 1.
        eval " require \"$_.pm\"; ";
        if (!$@) {
            print "## Module '$_' appears to be installed.\n" if $opt{'v'};
            $extensions_there++;
        }
        else {
            print "# Required module '$_' does not appear to be properly installed.\n";
            $@ = undef;
        }
        $extensions_total++;
    }

    # A silly name for a module (that hopefully won't ever exist).
    # Note that this test serves more as a check of the validity of the
    # actual required module tests above.
    my $unnecessary = 'bLuRfle';

    if (!grep(/$unnecessary/, @extensions)) {
        $@ = undef;
        eval " require \"$unnecessary.pm\"; ";
        if ($@) {
            print "## Unnecessary module '$unnecessary' does not appear to be installed.\n" if $opt{'v'};
        }
        else {
            print "# Unnecessary module '$unnecessary' appears to be installed.\n";
            $extensions_there++;
        }
    }
    $@ = undef;
}
$label = 'All (and only) expected extensions installed';
if ($extensions_total == $extensions_there) {
    print "ok 5 $label\n";
    $pass__total++;
}
else {
    print "not ok 5 $label\n";
    $error_total++;
}
$tests_total++;


print "## Checking installations of later additional extensions.\n" if $opt{'p'};

use ExtUtils::Installed;

my $installed_total = 0;
my $installed_there = 0;
my $version_check = 0;
my $installed = ExtUtils::Installed -> new();
my @modules = $installed -> modules();
my @missing = ();
my $version = undef;
for (@modules) {
    $installed_total++;
    # Consider it there if it contains one or more files,
    # and has zero missing files,
    # and has a defined version
    $version = undef;
    $version = $installed -> version($_);
    if ($version) {
        print "## $_; $version\n" if $opt{'v'};
        $version_check++;
    }
    else {
        print "# $_; NO VERSION\n" if $opt{'v'};
    }
    $version = undef;
    @missing = ();
    @missing = $installed -> validate($_);

    # .bs files are optional
    @missing = grep { ! /\.bs$/ } @missing;
    # man files are often compressed
    @missing = grep { ! ( -s "$_.gz" || -s "$_.bz2" ) } @missing;

    if ($#missing >= 0) {
        print "# file",+($#missing == 0) ? '' : 's'," missing from installation:\n";
        print '# ',join(' ',@missing),"\n";
    }
    elsif ($#missing == -1) {
        $installed_there++;
    }
    @missing = ();
}
$label = 'Module files correctly installed';
if (($installed_total == $installed_there) && 
    ($installed_total == $version_check)) {
    print "ok 6 $label\n";
    $pass__total++;
}
else {
    print "not ok 6 $label\n";
    $error_total++;
}
$tests_total++;

# Final report (rather than feed ousrselves to Test::Harness::runtests()
# we simply format some output on our own to keep things simple and
# easier to "fix" - at least for now.

if ($error_total == 0 && $tests_total) {
    print "All tests successful.\n";
} elsif ($tests_total==0){
        die "FAILED--no tests were run for some reason.\n";
} else {
    my $rate = 0.0;
    if ($tests_total > 0) { $rate = sprintf "%.2f", 100.0 * ($pass__total / $tests_total); }
    printf " %d/%d subtests failed, %.2f%% okay.\n",
                              $error_total, $tests_total, $rate;
}

=head1 NAME

perlivp - Perl Installation Verification Procedure

=head1 SYNOPSIS

B<perlivp> [B<-p>] [B<-v>] [B<-h>]

=head1 DESCRIPTION

The B<perlivp> program is set up at Perl source code build time to test the
Perl version it was built under.  It can be used after running:

    make install

(or your platform's equivalent procedure) to verify that B<perl> and its
libraries have been installed correctly.  A correct installation is verified
by output that looks like:

    ok 1
    ok 2

etc.

=head1 OPTIONS

=over 5

=item B<-h> help

Prints out a brief help message.

=item B<-p> print preface

Gives a description of each test prior to performing it.

=item B<-v> verbose

Gives more detailed information about each test, after it has been performed.
Note that any failed tests ought to print out some extra information whether
or not -v is thrown.

=back

=head1 DIAGNOSTICS

=over 4

=item * print "# Perl binary '$perlpath' does not appear executable.\n";

Likely to occur for a perl binary that was not properly installed.
Correct by conducting a proper installation.

=item * print "# Perl version '$]' installed, expected $ivp_VERSION.\n";

Likely to occur for a perl that was not properly installed.
Correct by conducting a proper installation.

=item * print "# Perl \@INC directory '$_' does not appear to exist.\n";

Likely to occur for a perl library tree that was not properly installed.
Correct by conducting a proper installation.

=item * print "# Needed module '$_' does not appear to be properly installed.\n";

One of the two modules that is used by perlivp was not present in the 
installation.  This is a serious error since it adversely affects perlivp's
ability to function.  You may be able to correct this by performing a
proper perl installation.

=item * print "# Required module '$_' does not appear to be properly installed.\n";

An attempt to C<eval "require $module"> failed, even though the list of 
extensions indicated that it should succeed.  Correct by conducting a proper 
installation.

=item * print "# Unnecessary module 'bLuRfle' appears to be installed.\n";

This test not coming out ok could indicate that you have in fact installed 
a bLuRfle.pm module or that the C<eval " require \"$module_name.pm\"; ">
test may give misleading results with your installation of perl.  If yours
is the latter case then please let the author know.

=item * print "# file",+($#missing == 0) ? '' : 's'," missing from installation:\n";

One or more files turned up missing according to a run of 
C<ExtUtils::Installed -E<gt> validate()> over your installation.
Correct by conducting a proper installation.

=back

For further information on how to conduct a proper installation consult the 
INSTALL file that comes with the perl source and the README file for your 
platform.

=head1 AUTHOR

Peter Prymmer

=cut