Changeset 1971 for branches/release-35/lib/MT/Blog.pm

Timestamp:

04/18/08 02:34:26 (20 months ago)

Author:

takayama

Message:

Fixed BugId:75137
* Keep compatibility of attribute name
* added tests

Files:

• branches/release-35/lib/MT/Blog.pm (modified) (1 diff)

branches/release-35/lib/MT/Blog.pm

@@ -385 +385 @@
     my $path = $param->{path} || '';
     my @path;
-    if ($path =~ m!^/!) {
+    if ($path =~ s!^/!!) {
         # absolute
-        @path = split /\//, $path;
+        @path = split q{/}, $path;
     } else {
         # relative
         push @path, MT->config('IncludesDir');
-        push @path, split /\//, $path;
+        push @path, split q{/}, $path;
     }
     return ($filename, @path);