[Catalyst-commits] r10338 - Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Thu May 28 08:51:11 GMT 2009


Author: t0m
Date: 2009-05-28 08:51:11 +0000 (Thu, 28 May 2009)
New Revision: 10338

Modified:
   Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm
Log:
Fix image files

Modified: Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm	2009-05-28 08:47:32 UTC (rev 10337)
+++ Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm	2009-05-28 08:51:11 UTC (rev 10338)
@@ -437,7 +437,7 @@
       btn_120x50_powered btn_120x50_powered_shadow btn_88x31_built
       btn_88x31_built_shadow btn_88x31_powered btn_88x31_powered_shadow/;
     for my $name (@images) {
-        my $image = $self->get_file("$name.png");
+        my $image = $self->get_sharedir_file("root", "$name.png");
         $self->mk_file( File::Spec->catfile( $images, "$name.png" ), $image );
     }
 }




More information about the Catalyst-commits mailing list