Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Don't import from Carp.

  • Loading branch information...
commit 4e8f2dfc1d296c1317e2f76c005d9a29d6c1de56 1 parent 5145328
Gisle Aas authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 URI/Escape.pm
View
6 URI/Escape.pm
@@ -1,5 +1,5 @@
#
-# $Id: Escape.pm,v 3.4 1996/02/05 17:46:10 aas Exp $
+# $Id: Escape.pm,v 3.5 1996/02/26 18:40:30 aas Exp $
#
package URI::Escape;
@@ -52,7 +52,7 @@ require Exporter;
@EXPORT = qw(uri_escape uri_unescape);
@EXPORT_OK = qw(%escapes);
-use Carp;
+use Carp ();
# Build a char->hex map
for (0..255) {
@@ -68,7 +68,7 @@ sub uri_escape
# Because we can't compile regex we fake it with a cached sub
$subst{$patn} =
eval "sub {\$_[0] =~ s/([$patn])/\$escapes{\$1}/g; }";
- croak "uri_escape: $@" if $@;
+ Carp::croak("uri_escape: $@") if $@;
}
&{$subst{$patn}}($text);
} else {
Please sign in to comment.
Something went wrong with that request. Please try again.