[Rt-commit] rt branch, 3.8-trunk, updated. rt-3.8.6-73-g7cb0d22

[sunnavy at bestpractical.com]

The branch, 3.8-trunk has been updated
       via  7cb0d2226c4f47180371b5f9c9544f1bd3252afd (commit)
      from  835ca9e393799c47bac9be284e5c8bdd045ed3aa (commit)

Summary of changes:
 lib/RT/Test/Web.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 7cb0d2226c4f47180371b5f9c9544f1bd3252afd
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Wed Nov 4 13:46:43 2009 +0800

    tiny url fix: we do *not* need 2 leading /

diff --git a/lib/RT/Test/Web.pm b/lib/RT/Test/Web.pm
index 370e30f..9e3d6ae 100644
--- a/lib/RT/Test/Web.pm
+++ b/lib/RT/Test/Web.pm
@@ -59,7 +59,7 @@ require Test::More;
 sub get_ok {
     my $self = shift;
     my $url = shift;
-    if ( $url =~ m{^/} ) {
+    if ( $url =~ s!^/!! ) {
         $url = $self->rt_base_url . $url;
     }
     my $rv = $self->SUPER::get_ok($url, @_);

-----------------------------------------------------------------------