This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Time::HiRes: normalize indentation
[perl5.git] / dist / Time-HiRes / t / sleep.t
index 0ab6340..0451650 100644 (file)
@@ -8,7 +8,7 @@ BEGIN { require_ok "Time::HiRes"; }
 
 use Config;
 
-my $xdefine = ''; 
+my $xdefine = '';
 if (open(XDEFINE, "<", "xdefine")) {
     chomp($xdefine = <XDEFINE> || "");
     close(XDEFINE);
@@ -22,11 +22,11 @@ my $can_subsecond_alarm =
 
 eval { Time::HiRes::sleep(-1) };
 like $@, qr/::sleep\(-1\): negative time not invented yet/,
-       "negative time error";
+        "negative time error";
 
 SKIP: {
     skip "no subsecond alarm", 2 unless $can_subsecond_alarm;
-    my $f = Time::HiRes::time; 
+    my $f = Time::HiRes::time;
     print("# time...$f\n");
     ok 1;