Revision 5cf977e5
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
bin/mozilla/io.pl | ||
---|---|---|
1869 | 1869 |
%queued = map { s|.*/|| } split / /, $form->{queued}; |
1870 | 1870 |
|
1871 | 1871 |
if ($filename = $queued{ $form->{formname} }) { |
1872 |
$form->{queued} =~ s/$form->{formname} $filename//;
|
|
1872 |
$form->{queued} =~ s/\Q$form->{formname} $filename\E//;
|
|
1873 | 1873 |
unlink "$spool/$filename"; |
1874 | 1874 |
$filename =~ s/\..*$//g; |
1875 | 1875 |
} else { |
Auch abrufbar als: Unified diff
Quoten von allen in regulären Ausdrücken verwendeten Variablen, die direkt oder indirekt von Benutzereingaben stammen können. Fix für Bug 302.