Make storing standard regexps a bit more sensible.

2013-05-13 13:21:05 +01:00 · 2013-05-13 13:21:05 +01:00 · f1368d4821
commit f1368d4821
parent 54c4c4c7dc
1 changed files with 2 additions and 0 deletions
--- a/Webperl/Block.pm
+++ b/Webperl/Block.pm
@ -65,6 +65,8 @@ sub new {
    my $invocant = shift;
    my $class    = ref($invocant) || $invocant;
    my $self     = $class -> SUPER::new("logtable" => "",
+                                        "formats"  => {"url"   => '^https?://[-\w]+(?:\.[-\w]+)+(?:/(?:[-\w]+/)*[-.\w]*(?:\?(?:[-\w~!\$+|.,*:;]|%[a-f\d]{2,4})+=(?:[-\w~!\$+|.,*:]|%[a-f\d]{2,4})*(?:&(?:[-\w~!\$+|.,*:;]|%[a-f\d]{2,4})+=(?:[-\w~!\$+|.,*:]|%[a-f\d]{2,4})*)*)?(?:\#(?:[-\w~!\$+|&.,*:;=]|%[a-f\d]{2,4})*)?)?$',
+                                                      },
                                        @_)
        or return undef;