[patch@25305] t/op/arith.t fix for VMS with IEEE float

[p5sagit/p5-mst-13.2.git] / lib / Archive / Tar / Constant.pm

diff --git a/lib/Archive/Tar/Constant.pm b/lib/Archive/Tar/Constant.pm
index fe5bb14..f7f0f6d 100644 (file)
--- a/lib/Archive/Tar/Constant.pm
+++ b/lib/Archive/Tar/Constant.pm
@@ -40,7 +40,7 @@ use constant READ_ONLY      => sub { shift() ? 'rb' : 'r' };
 use constant WRITE_ONLY     => sub { $_[0] ? 'wb' . shift : 'w' };
 use constant MODE_READ      => sub { $_[0] =~ /^r/ ? 1 : 0 };
 
-# Pointless assigment to make -w shut up
+# Pointless assignment to make -w shut up
 my $getpwuid; $getpwuid = 'unknown' unless eval { my $f = getpwuid (0); };
 my $getgrgid; $getgrgid = 'unknown' unless eval { my $f = getgrgid (0); };
 use constant UNAME          => sub { $getpwuid || scalar getpwuid( shift() ) };