Permalink
Browse files

MacOS patch by Paul J. Schinder.

  • Loading branch information...
1 parent 1fcbe23 commit 2ecf1e04e63ba316527ec11ff6692789a287b853 @gisle committed Mar 19, 1999
Showing with 6 additions and 6 deletions.
  1. +3 −3 lib/HTTP/Request.pm
  2. +3 −3 lib/LWP/Protocol.pm
View
@@ -1,5 +1,5 @@
#
-# $Id: Request.pm,v 1.24 1998/11/19 21:45:00 aas Exp $
+# $Id: Request.pm,v 1.25 1999/03/19 21:02:16 gisle Exp $
package HTTP::Request;
@@ -39,7 +39,7 @@ The following additional methods are available:
require HTTP::Message;
@ISA = qw(HTTP::Message);
-$VERSION = sprintf("%d.%02d", q$Revision: 1.24 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.25 $ =~ /(\d+)\.(\d+)/);
use strict;
@@ -104,7 +104,7 @@ sub uri
unless ($HTTP::URI_CLASS eq "URI") {
# Argh!! Hate this... old LWP legacy!
eval { $uri = $uri->abs; };
- die $@ if $@ && $@ !~ /^Missing base argument/;
+ die $@ if $@ && $@ !~ /Missing base argument/;
}
} else {
$uri = $HTTP::URI_CLASS->new($uri);
View
@@ -1,4 +1,4 @@
-# $Id: Protocol.pm,v 1.31 1998/01/06 09:58:38 aas Exp $
+# $Id: Protocol.pm,v 1.32 1999/03/19 21:02:17 gisle Exp $
package LWP::Protocol;
@@ -38,7 +38,7 @@ The following methods and functions are provided:
require LWP::MemberMixin;
@ISA = qw(LWP::MemberMixin);
-$VERSION = sprintf("%d.%02d", q$Revision: 1.31 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.32 $ =~ /(\d+)\.(\d+)/);
use strict;
use Carp ();
@@ -117,7 +117,7 @@ sub implementor
# try to autoload it
eval "require $ic";
if ($@) {
- if ($@ =~ /^Can't locate/) { #' #emacs get confused by '
+ if ($@ =~ /Can't locate/) { #' #emacs get confused by '
$ic = '';
} else {
die "$@\n";

0 comments on commit 2ecf1e0

Please sign in to comment.