X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FMason%2FRequest.pm;h=565f85eb06bb19e71fc0446cb8addbe16a432011;hp=95c802796d199bd5fcdc8c727bf7717bae29e3fe;hb=3f8ef5c72aa4fbfad5c320d91abdd4f2d547c029;hpb=74e058c8a010ef6feb539248a550d0bb169c1e94 diff --git a/FS/FS/Mason/Request.pm b/FS/FS/Mason/Request.pm index 95c802796..565f85eb0 100644 --- a/FS/FS/Mason/Request.pm +++ b/FS/FS/Mason/Request.pm @@ -24,7 +24,7 @@ sub new { my %opt = @_; my $mode = $superclass =~ /Apache/i ? 'apache' : 'standalone'; - freeside_setup($opt{'comp'}, $mode); + $class->freeside_setup($opt{'comp'}, $mode); $class->SUPER::new(@_); @@ -34,8 +34,7 @@ sub new { # for Mason 1.39 vs. Perl 5.10.0 sub freeside_setup { - - my( $filename, $mode ) = @_; + my( $class, $filename, $mode ) = @_; if ( $filename =~ qr(/REST/\d+\.\d+/NoAuth/) ) {