[Bps-public-commit] r14174 - in Prophet/trunk: .

sartak at bestpractical.com sartak at bestpractical.com
Wed Jul 16 16:16:00 EDT 2008


Author: sartak
Date: Wed Jul 16 16:15:29 2008
New Revision: 14174

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/Replica/Native.pm

Log:
 r64445 at onn:  sartak | 2008-07-16 16:14:53 -0400
 default just returns the desired value, it doesn't need to set it itself


Modified: Prophet/trunk/lib/Prophet/Replica/Native.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Replica/Native.pm	(original)
+++ Prophet/trunk/lib/Prophet/Replica/Native.pm	Wed Jul 16 16:15:29 2008
@@ -24,7 +24,7 @@
     lazy    => 1,
     default => sub {
         my $self = shift;
-        $self->fs_root_parent($self->url =~ m{^file://(.*)/.*?$});
+        return $self->url =~ m{^file://(.*)/.*?$} ? $1 : undef;
     },
 );
 
@@ -33,7 +33,7 @@
     lazy    => 1,
     default => sub {
         my $self = shift;
-        $self->fs_root($self->url =~ m{^file://(.*)$});
+        return $self->url =~ m{^file://(.*)$} ? $1 : undef;
     },
 );
 



More information about the Bps-public-commit mailing list