Handle non-integral device pixel ratios.
[pr0n] / perl / Sesse / pr0n / Image.pm
index f4262e305df8e2773d97c19cb4017ac0de8900cc..372a9b19e5756a2ca85bd44949c5c2e2b623c7e0 100644 (file)
@@ -21,7 +21,7 @@ sub handler {
                $filename = $3;
                $infobox = 'nobox' if (defined($2) && $2 eq 'nobox/');
                $infobox = 'box' if (defined($2) && $2 eq 'box/');
-       } elsif ($r->uri =~ m#^/([a-zA-Z0-9-]+)/(\d+)x(\d+)(?:\@(\d+))?/((?:no)?box/)?([a-zA-Z0-9._()-]+)$#) {
+       } elsif ($r->uri =~ m#^/([a-zA-Z0-9-]+)/(\d+)x(\d+)(?:\@(\d+(?:\.\d+)?))?/((?:no)?box/)?([a-zA-Z0-9._()-]+)$#) {
                $event = $1;
                $filename = $6;
                $xres = $2;