Terminate subsitution introduced in rev 1.22.

This commit is contained in:
Paul Saab 2000-12-06 07:16:59 +00:00
parent c28360b875
commit 3c593c95f5
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8482

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.21 2000/07/28 21:21:20 knu Exp $
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.22 2000/12/05 16:22:14 knu Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -40,7 +40,7 @@ if (!($pr = $input{'pr'}) && &MethGet) {
}
# be tolerant to <category>/<PR id> queries
$pr =~ s%^.+/%; # remove <category>/ part
$pr =~ s%^.+/%%; # remove <category>/ part
$pr += 0; # numeralize: "0123" -> 123, "123;evil evil evil" -> 123, etc.