Author: jamessan
Date: 2008-08-16 20:42:28 +0000 (Sat, 16 Aug 2008)
New Revision: 1595
Modified:
trunk/debian/changelog
trunk/scripts/uscan.pl
Log:
uscan: Correct the <base ...> regex to be case-insensitive. (Closes: #495265)
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2008-08-14 20:23:12 UTC (rev 1594)
+++ trunk/debian/changelog 2008-08-16 20:42:28 UTC (rev 1595)
@@ -34,6 +34,10 @@
another distribution instead of unstable
(Closes: #471498)
+ [ James Vega ]
+ * uscan: Correct the <base ...> regex to be case-insensitive. (Closes:
+ #495265)
+
-- Patrick Schoenfeld <[EMAIL PROTECTED]> Thu, 14 Aug 2008 22:22:40 +0200
devscripts (2.10.35) unstable; urgency=low
Modified: trunk/scripts/uscan.pl
===================================================================
--- trunk/scripts/uscan.pl 2008-08-14 20:23:12 UTC (rev 1594)
+++ trunk/scripts/uscan.pl 2008-08-16 20:42:28 UTC (rev 1595)
@@ -871,7 +871,7 @@
# Strip comments
$content =~ s/<!-- .*?-->//sg;
# Is there a base URL given?
- if ($content =~ /<\s*base\s+[^>]*href\s*=\s*([\"\'])(.*?)\1/) {
+ if ($content =~ /<\s*base\s+[^>]*href\s*=\s*([\"\'])(.*?)\1/i) {
# Ensure it ends with /
$urlbase = "$2/";
$urlbase =~ s%//$%/%;
--
To unsubscribe, send mail to [EMAIL PROTECTED]
