File::stat: expand tabs, delete trailing spaces

Most lines in these files used spaces for indentation, but a few of them
still had tabs. Keep things consistent by using spaces everywhere.

Author: mauke

lib/File/stat.pm

@@ -16,12 +16,12 @@ our ( $st_dev, $st_ino, $st_mode,
 
 use Exporter 'import';
 our @EXPORT      = qw(stat lstat);
-our @fields      = qw( $st_dev	   $st_ino    $st_mode
-		       $st_nlink   $st_uid    $st_gid 
-		       $st_rdev    $st_size 
-		       $st_atime   $st_mtime  $st_ctime 
-		       $st_blksize $st_blocks
-		    );
+our @fields      = qw( $st_dev     $st_ino    $st_mode
+                       $st_nlink   $st_uid    $st_gid
+                       $st_rdev    $st_size
+                       $st_atime   $st_mtime  $st_ctime
+                       $st_blksize $st_blocks
+                    );
 our @EXPORT_OK   = ( @fields, "stat_cando" );
 our %EXPORT_TAGS = ( FIELDS => [ @fields, @EXPORT ] );
 
@@ -73,7 +73,7 @@ sub _ingroup {
 # and interpreting it later would require this module to have an XS
 # component (at which point we might as well just call Perl_cando and
 # have done with it).
-    
+
 if (grep $^O eq $_, qw/os2 MSWin32/) {
 
     # from doio.c
@@ -152,7 +152,7 @@ my %op = (
 use constant HINT_FILETEST_ACCESS => 0x00400000;
 
 # we need fallback=>1 or stringifying breaks
-use overload 
+use overload
     fallback => 1,
     -X => sub {
         my ($s, $op) = @_;
@@ -179,20 +179,20 @@ use overload
 use Class::Struct qw(struct);
 struct 'File::stat' => [
      map { $_ => '$' } qw{
-	 dev ino mode nlink uid gid rdev size
-	 atime mtime ctime blksize blocks
+         dev ino mode nlink uid gid rdev size
+         atime mtime ctime blksize blocks
      }
 ];
 
 sub populate {
     return undef unless @_;
     my $stob = new();
     @$stob = (
-	$st_dev, $st_ino, $st_mode, $st_nlink, $st_uid, $st_gid, $st_rdev,
-        $st_size, $st_atime, $st_mtime, $st_ctime, $st_blksize, $st_blocks ) 
-	    = @_;
+        $st_dev, $st_ino, $st_mode, $st_nlink, $st_uid, $st_gid, $st_rdev,
+        $st_size, $st_atime, $st_mtime, $st_ctime, $st_blksize, $st_blocks )
+            = @_;
     return $stob;
-} 
+}
 
 sub lstat :prototype(_) ($arg) {
     populate(CORE::lstat $arg)
@@ -244,8 +244,8 @@ File::stat - by-name interface to Perl's built-in stat() functions
 
 =head1 DESCRIPTION
 
-This module's default exports override the core stat() 
-and lstat() functions, replacing them with versions that return 
+This module's default exports override the core stat()
+and lstat() functions, replacing them with versions that return
 "File::stat" objects.  This object has methods that
 return the similarly named structure field name from the
 L<stat(2)> function; namely,
@@ -262,7 +262,7 @@ mtime,
 ctime,
 blksize,
 and
-blocks.  
+blocks.
 
 As of version 1.02 (provided with perl 5.12) the object provides C<"-X">
 overloading, so you can call filetest operators (C<-f>, C<-x>, and so

lib/File/stat.t

@@ -154,28 +154,28 @@ for (split //, "tTB") {
 }
 
 SKIP: {
-	skip("Could not open file: $!", 2) unless $canopen;
-	isa_ok(File::stat::stat('STAT'), 'File::stat',
-	       '... should be able to find filehandle');
-
-	package foo;
-	local *STAT = *main::STAT;
-	my $stat2 = File::stat::stat('STAT');
-	main::isa_ok($stat2, 'File::stat',
-		     '... and filehandle in another package');
-	close STAT;
-
-#	VOS open() updates atime; ignore this error (posix-975).
-	my $stat3 = $stat2;
-	if ($^O eq 'vos') {
-		$$stat3[8] = $$stat[8];
-	}
+    skip("Could not open file: $!", 2) unless $canopen;
+    isa_ok(File::stat::stat('STAT'), 'File::stat',
+           '... should be able to find filehandle');
+
+    package foo;
+    local *STAT = *main::STAT;
+    my $stat2 = File::stat::stat('STAT');
+    main::isa_ok($stat2, 'File::stat',
+             '... and filehandle in another package');
+    close STAT;
+
+#   VOS open() updates atime; ignore this error (posix-975).
+    my $stat3 = $stat2;
+    if ($^O eq 'vos') {
+        $$stat3[8] = $$stat[8];
+    }
 
-	main::skip("Win32: different stat-info on filehandle", 1) if $^O eq 'MSWin32';
+    main::skip("Win32: different stat-info on filehandle", 1) if $^O eq 'MSWin32';
 
-	main::skip("OS/2: inode number is not constant on os/2", 1) if $^O eq 'os2';
+    main::skip("OS/2: inode number is not constant on os/2", 1) if $^O eq 'os2';
 
-	main::is_deeply($stat, $stat3, '... and must match normal stat');
+    main::is_deeply($stat, $stat3, '... and must match normal stat');
 }
 
 SKIP: