Terminate subsitution introduced in rev 1.22.
This commit is contained in:
parent
c28360b875
commit
3c593c95f5
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8482
1 changed files with 2 additions and 2 deletions
|
@ -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.
|
||||
|
||||
|
|
Loading…
Reference in a new issue