diff options
author | = <=> | 2018-07-31 00:27:13 -0500 |
---|---|---|
committer | = <=> | 2018-07-31 00:27:13 -0500 |
commit | d003edcba6aaf29f74b904c09fc9dfdf3b2ff2cc (patch) | |
tree | 0e8587ef2b978cc872d5cd53b957fbd18c2db717 /testcases/022-cpu-usage-tenth-cpu/cleanup.pl | |
parent | 639a67f752874142b1c081345fd36610e9046103 (diff) |
Fix for issue 300: Correctly print usage for cpu 10
Diffstat (limited to 'testcases/022-cpu-usage-tenth-cpu/cleanup.pl')
-rw-r--r-- | testcases/022-cpu-usage-tenth-cpu/cleanup.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/testcases/022-cpu-usage-tenth-cpu/cleanup.pl b/testcases/022-cpu-usage-tenth-cpu/cleanup.pl new file mode 100644 index 0000000..ac341be --- /dev/null +++ b/testcases/022-cpu-usage-tenth-cpu/cleanup.pl @@ -0,0 +1,15 @@ +#!/usr/bin/env perl + +use v5.10; +use strict; +use warnings; + +if ($#ARGV != 0 || ! -d $ARGV[0]) { + say "Error with cleanup script: argument not provided or not a directory"; + exit 1; +} + +my $output_file = "$ARGV[0]/stat"; +if (-f $output_file) { + unlink $output_file; +} |