[hcoop/debian/openafs.git] / debian / ConfigUtils.pm

# This is -*- perl -*-

package Debian::OpenAFS::ConfigUtils;

use strict;
use vars qw( @ISA @EXPORT @unwinds);
@ISA = qw(Exporter);
require Exporter;
@EXPORT = qw(@unwinds run unwind);

sub run ($) {
  print join(' ', @_);
  print "\n";
  system (@_)  == 0
    or die "Failed: $?\n";
}

# This subroutine takes a command to run in case of failure.  After
# each succesful step, this routine should be run with a command to
# undo the successful step.

	 sub unwind($) {
	   push @unwinds, $_[0];
	 }

1;
Commit	Line	Data
b7cfede0 BK	1	# This is -- perl --
	2
	3	package Debian::OpenAFS::ConfigUtils;
	4
	5	use strict;
	6	use vars qw( @ISA @EXPORT @unwinds);
	7	@ISA = qw(Exporter);
	8	require Exporter;
	9	@EXPORT = qw(@unwinds run unwind);
	10
	11	sub run ($) {
	12	print join(' ', @_);
	13	print "\n";
	14	system (@_) == 0
	15	or die "Failed: $?\n";
	16	}
	17
	18	# This subroutine takes a command to run in case of failure. After
	19	# each succesful step, this routine should be run with a command to
	20	# undo the successful step.
	21
	22	sub unwind($) {
	23	push @unwinds, $_[0];
	24	}
	25
	26	1;