From 46f7f636718b25cae0eef1a8c87b0447f1287a54 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Wed, 25 Jul 2007 14:53:13 +0200
Subject: [PATCH] Syntax highlighting woes.

---
 perl/Sesse/pr0n/Index.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 260aa64..6c7bc80 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -29,7 +29,7 @@ sub handler {
 	}
 
 	# Fix common error: pr0n.sesse.net/event -> pr0n.sesse.net/event/
-	if ($r->uri !~ m#/$#) {
+	if ($r->uri !~ /\/$/) {
 		$r->headers_out->{'location'} = "/$event/";
 		return Apache2::Const::REDIRECT;
 	}
-- 
2.39.2