development/autotests/getTempDir.pl

   1 #! /usr/bin/env perl
   2 # -*- mode: perl; -*-
   3
   4 # How to use:
   5
   6 use File::Temp tempdir;
   7
   8 my $template = "$ARGV[0]/AbC_XXXXXX";
   9 my $res  = tempdir($template, CLEANUP => 0);
  10
  11 print "$res";
  12
  13 exit(0);