[Catalyst-commits] r6762 - in trunk/Catalyst-View-Mason: . lib/Catalyst/View

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Tue Aug 28 16:59:11 GMT 2007


Author: rafl
Date: 2007-08-28 16:59:11 +0100 (Tue, 28 Aug 2007)
New Revision: 6762

Modified:
   trunk/Catalyst-View-Mason/Makefile.PL
   trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm
Log:
Use File::Spec->tmpdir instead of hardcoded temp dir.


Modified: trunk/Catalyst-View-Mason/Makefile.PL
===================================================================
--- trunk/Catalyst-View-Mason/Makefile.PL	2007-08-28 15:59:05 UTC (rev 6761)
+++ trunk/Catalyst-View-Mason/Makefile.PL	2007-08-28 15:59:11 UTC (rev 6762)
@@ -8,6 +8,7 @@
 requires 'Catalyst' => '5.50';
 requires 'HTML::Mason' => 0;
 requires 'Scalar::Util' => 0;
+requires 'File::Spec' => 0;
 
 auto_install;
 WriteAll;

Modified: trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm
===================================================================
--- trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm	2007-08-28 15:59:05 UTC (rev 6761)
+++ trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm	2007-08-28 15:59:11 UTC (rev 6762)
@@ -3,6 +3,7 @@
 use strict;
 use base qw/Catalyst::View/;
 use Scalar::Util qw/blessed/;
+use File::Spec;
 use HTML::Mason;
 use NEXT;
 
@@ -76,8 +77,8 @@
     my ($self, $c, $arguments) = @_;
 
     my %config = (
-        comp_root =>  ( $c->config->{root} . '' ),
-        data_dir  => '/tmp',
+        comp_root => ( $c->config->{root} . '' ),
+        data_dir  => File::Spec->tmpdir,
         use_match => 1,
         %{ $self->config },
         %{ $arguments },




More information about the Catalyst-commits mailing list