git.sur5r.net Git - i3/i3status/blob - testcases/022-cpu-usage-tenth-cpu/cleanup.pl

   1 #!/usr/bin/env perl
   2
   3 use v5.10;
   4 use strict;
   5 use warnings;
   6
   7 if ($#ARGV != 0 || ! -d $ARGV[0]) {
   8     say "Error with cleanup script: argument not provided or not a directory";
   9     exit 1;
  10 }
  11
  12 my $output_file = "$ARGV[0]/stat";
  13 if (-f $output_file) {
  14     unlink $output_file;
  15 }