libwww

Synopsis

Provides a whole heap 'o web functionality for Perl. Requires a Perl compiled with socket support.

Special instructions for compiling on VMS

Requires the following patch to function properly. This is the patch:

*** afm.pm;1

--- afm.pm;2

**************

*** 236,241

  sub new

  {

     my($class, $fontname) = @_;

     $fontname =~ s/.amf$//;

     my $file = "$fontname.afm";

     unless ($file =~ m,^/,) {

--- 236,242 -----

  sub new

  {

     my($class, $fontname) = @_;

+    my $file;

     $fontname =~ s/.amf$//;

     if ($^O eq 'VMS') {

       $file = "sys\$ps_font_metrics:$fontname.afm";

**************

*** 237,244

  {

     my($class, $fontname) = @_;

     $fontname =~ s/.amf$//;

!    my $file = "$fontname.afm";

!    unless ($file =~ m,^/,) {

         # not absolute, search the metrics path for the file

         foreach (@metrics_path) {

           if (-f "$_/$file") {

--- 238,249 -----

     my($class, $fontname) = @_;

     my $file;

     $fontname =~ s/.amf$//;

!    if ($^O eq 'VMS') {

!      $file = "sys\$ps_font_metrics:$fontname.afm";

!    }

!    else {

!      $file = "$fontname.afm";

!      unless ($file =~ m,^/,) {

         # not absolute, search the metrics path for the file

         foreach (@metrics_path) {

         if (-f "$_/$file") {

**************

*** 241,250

     unless ($file =~ m,^/,) {

         # not absolute, search the metrics path for the file

         foreach (@metrics_path) {

!          if (-f "$_/$file") {

!              $file = "$_/$file";

!              last;

!          }

         }

     }

     open(AFM, $file) or croak "Can't find the AFM file for $fontname";

--- 246,255 -----

       unless ($file =~ m,^/,) {

         # not absolute, search the metrics path for the file

         foreach (@metrics_path) {

!        if (-f "$_/$file") {

!          $file = "$_/$file";

!          last;

!        }

         }

       }

     }

**************

*** 246,251

               last;

           }

         }

     }

     open(AFM, $file) or croak "Can't find the AFM file for $fontname";

     my $this = bless { }, $class;

--- 251,257 -----

           last;

         }

         }

+      }

     }

     open(AFM, $file) or croak "Can't find the AFM file for $fontname";

     my $this = bless { }, $class;

More Detail

Module Author

Last Update 17-September-1997
Questions or Comments?
Write the WebMaster