perl typo

Submitted by:	Chris Costello <chris@calldei.com>
This commit is contained in:
Wolfram Schneider 2000-11-29 13:59:24 +00:00
parent f39b1e916c
commit d52b336596
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8442

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.27 2000/10/22 14:25:07 phantom Exp $
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.28 2000/10/29 22:16:41 steve Exp $
$html_mode = 1 if $ENV{'DOCUMENT_ROOT'};
$self_ref = $ENV{'SCRIPT_NAME'};
@ -223,7 +223,7 @@ foreach ("category", "originator", "priority", "class", "responsible",
$d = $input{$_};
$d =~ s/^"(.*)"$/$&/;
$d =~ s/'/\\'/;
$query_args .= " --${_}='$input{$_}'";
$query_args .= " --${_}='$d'";
}
}