diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 22:04:04 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 22:04:04 +0200 |
| commit | 340aa6d143806c2c800d0cb44e0e3ed5dd6e3a15 (patch) | |
| tree | 42154f807a49d2d4152a67dd177178b1fb9b8521 /Xerl | |
| parent | a85557e56e6c057e9057a23983586b6d712f2c6c (diff) | |
SECUREPATH is private
Diffstat (limited to 'Xerl')
| -rw-r--r-- | Xerl/Tools/FileIO.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Xerl/Tools/FileIO.pm b/Xerl/Tools/FileIO.pm index e2ebff0..a594694 100644 --- a/Xerl/Tools/FileIO.pm +++ b/Xerl/Tools/FileIO.pm @@ -36,7 +36,7 @@ sub dslurp($;$) { sub fslurp($) { my Xerl::Tools::FileIO $self = $_[0]; - my $path = SECUREPATH( $self->get_path() ); + my $path = _SECUREPATH( $self->get_path() ); unless ( -f $path ) { Xerl::Main::Global::HTTP( 404, "Not found: $path" ); @@ -58,7 +58,7 @@ sub fslurp($) { sub exists($) { my Xerl::Tools::FileIO $self = $_[0]; - my $path = SECUREPATH( $self->get_path() ); + my $path = _SECUREPATH( $self->get_path() ); return -e $path; } @@ -83,7 +83,7 @@ sub _fwrite($;$) { my $append = $_[1]; my ( $path, $filename ) = - ( SECUREPATH( $self->get_path() ), SECUREPATH( $self->get_filename() ) ); + ( _SECUREPATH( $self->get_path() ), _SECUREPATH( $self->get_filename() ) ); my $path_ = ''; for ( split /\//, $path ) { @@ -155,7 +155,7 @@ sub pop($) { use overload '+' => \&merge; -sub SECUREPATH($) { +sub _SECUREPATH($) { my $path = $_[0]; $path =~ s/\.\.+\/?//g; |