#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell

# $Id: dr_exec,v 1.1.2.1 2003/02/23 21:42:32 joern Exp $

#-----------------------------------------------------------------------
# Copyright (C) 2001-2003 Jörn Reder <joern@zyn.de> All Rights Reserved
# 
# This program is part of Video::DVDRip, which is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#-----------------------------------------------------------------------

use strict;

main: {
	if ( not @ARGV ) {
		print "usage: dr_exec program args ...\n";
		exit 1;
	}

	print STDERR "DVDRIP_JOB_PID=$$\n";

	exec @ARGV;
}
