diff options
| author | Piotr Fusik <pfusik@op.pl> | 2005-07-31 14:50:04 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-08-02 10:39:51 +0000 |
| commit | 3c4b39bee8832007b7e91bfce8701d34cacab411 (patch) | |
| tree | 190f72b72255db85e5c78f68a0d0047692aab3a9 /lib/Archive | |
| parent | db30010093a0bacd16d1fa3fd1bd5397da6479d3 (diff) | |
| download | perl-3c4b39bee8832007b7e91bfce8701d34cacab411.tar.gz | |
Typos in *.p[lm]
From: "Piotr Fusik" <pfusik@op.pl>
Message-ID: <001401c595bd$dccb5d80$0bd34dd5@piec>
p4raw-id: //depot/perl@25261
Diffstat (limited to 'lib/Archive')
| -rw-r--r-- | lib/Archive/Tar.pm | 4 | ||||
| -rw-r--r-- | lib/Archive/Tar/Constant.pm | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/Archive/Tar.pm b/lib/Archive/Tar.pm index f8e817b2ae..9064f2b541 100644 --- a/lib/Archive/Tar.pm +++ b/lib/Archive/Tar.pm @@ -1146,7 +1146,7 @@ method call instead. Returns true if we currently have C<IO::String> support loaded. Either C<IO::String> or C<perlio> support is needed to support writing -stringified archives. Currently, C<perlio> is the preffered method, if +stringified archives. Currently, C<perlio> is the preferred method, if available. See the C<GLOBAL VARIABLES> section to see how to change this preference. @@ -1162,7 +1162,7 @@ Returns true if we currently have C<perlio> support loaded. This requires C<perl-5.8> or higher, compiled with C<perlio> Either C<IO::String> or C<perlio> support is needed to support writing -stringified archives. Currently, C<perlio> is the preffered method, if +stringified archives. Currently, C<perlio> is the preferred method, if available. See the C<GLOBAL VARIABLES> section to see how to change this preference. diff --git a/lib/Archive/Tar/Constant.pm b/lib/Archive/Tar/Constant.pm index fe5bb14726..f7f0f6d29a 100644 --- 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() ) }; |