Better pass in the $self for a method.

p4raw-id: //depot/perl@18982

diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
index 3922f21..1b882df 100644 (file)
--- a/lib/File/Spec/Unix.pm
+++ b/lib/File/Spec/Unix.pm
@@ -163,7 +163,8 @@ sub _tmpdir {
 
 sub tmpdir {
     return $tmpdir if defined $tmpdir;
-    $tmpdir = _tmpdir( $ENV{TMPDIR}, "/tmp" );
+    my $self = shift;
+    $tmpdir = $self->_tmpdir( $ENV{TMPDIR}, "/tmp" );
 }
 
 =item updir