From 0c0a1892081f3aa16e5b6078a9bbdfe5d2313805 Mon Sep 17 00:00:00 2001 From: Angel Ortega Date: Wed, 26 Nov 2008 16:51:42 +0100 Subject: [PATCH] Strip all undefined arguments in Gruta->url(). --- Gruta.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Gruta.pm b/Gruta.pm index 024f024..e58d925 100644 --- a/Gruta.pm +++ b/Gruta.pm @@ -240,6 +240,9 @@ sub url { my $ret = $self->base_url(); + # strip all undefined or empty arguments + %args = map { $_, $args{$_} } grep { $args{$_} } keys(%args); + if ($self->{args}->{static_urls}) { my $kn = scalar(keys(%args)); -- 2.11.4.GIT