From e9d3a1e6796d450ab00a6a6d95b8ace53b7f93fd Mon Sep 17 00:00:00 2001
From: Dennis Eriksen <d@ennis.no>
Date: Fri, 1 Nov 2019 17:13:40 +0100
Subject: we now support curling the form without getting all of the HTML in
 response

---
 redirect.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'redirect.cgi')

diff --git a/redirect.cgi b/redirect.cgi
index c471831..9af5ed9 100755
--- a/redirect.cgi
+++ b/redirect.cgi
@@ -13,7 +13,7 @@ my $q = CGI->new;       # create CGI object
 my $dbh = DBI->connect("dbi:Pg:dbname=purl") or die $DBI::errstr;
 
 # set the short
-my $short = $ENV{REQUEST_URI};
+my $short = scalar $ENV{REQUEST_URI};
 $short =~ s/^\///;
 
 # SQL Query
-- 
cgit v1.2.3