* Jason Galea <[email protected]> [2009-10-21 01:50]:
> $c->res->header( 'Content-Disposition' =>
> 'attachment;filename='.$c->stash->{pdf_filename} );
This will break for filenames with spaces in them. For strict
correctness, you want this:
( my $pdf_filename = $c->stash->{ pdf_filename } ) =~ s!"!\\"!g;
$c->res->header( 'Content-Disposition' => qq(attachment;
filename="$pdf_filename") );
--
*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1}
&Just->another->Perl->hack;
#Aristotle Pagaltzis // <http://plasmasturm.org/>
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
