RedirectRefererにパッチ

Perl 



package Sledge::Plugin::RedirectReferer;
use warnings;

use strict;

use URI;
our $VERSION = '0.03';
sub import {

    my $self = shift;

    my $pkg  = caller;
    no strict 'refs';

    *{"$pkg\::redirect_referer"} = sub {

        my ($self , $url) = @_;

        if ( $self->r->header_in('Referer') ) {

            my $uri = URI->new($self->r->header_in('Referer'));

            if ( $uri->host eq $self->r->hostname ) {

                return $self->redirect($uri->path_query);

            } else {

                return $self->redirect($uri->as_string);

            }

        } else {

            return $self->redirect($url);

        }

    };

}

MobileでStickyQueryをよきにあれしたいときがあるから。

（追記）
ちょっとなおした。