[Bio] / FigKernelPackages / Tracer.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Tracer.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36, Sun Jan 15 21:27:33 2006 UTC revision 1.37, Fri Feb 17 00:26:23 2006 UTC
# Line 19  Line 19 
19    
20      require Exporter;      require Exporter;
21      @ISA = ('Exporter');      @ISA = ('Exporter');
22      @EXPORT = qw(Trace T TSetup QTrace Confess Cluck Min Max Assert Open OpenDir TICK StandardSetup ScriptSetup ScriptFinish);      @EXPORT = qw(Trace T TSetup QTrace Confess Cluck Min Max Assert Open OpenDir TICK StandardSetup ScriptSetup ScriptFinish Insure);
23      @EXPORT_OK = qw(GetFile GetOptions Merge MergeOptions ParseCommand ParseRecord UnEscape Escape);      @EXPORT_OK = qw(GetFile GetOptions Merge MergeOptions ParseCommand ParseRecord UnEscape Escape);
24      use strict;      use strict;
25      use Carp qw(longmess croak);      use Carp qw(longmess croak);
# Line 28  Line 28 
28      use PageBuilder;      use PageBuilder;
29      use Digest::MD5;      use Digest::MD5;
30      use File::Basename;      use File::Basename;
31        use File::Path;
32    
33  =head1 Tracing and Debugging Helpers  =head1 Tracing and Debugging Helpers
34    
# Line 1840  Line 1841 
1841  to their values. The template file will be read into memory, and variable markers  to their values. The template file will be read into memory, and variable markers
1842  will be replaced by data in this hash reference.  will be replaced by data in this hash reference.
1843    
1844    =back
1845    
1846  =cut  =cut
1847    
1848  sub ScriptFinish {  sub ScriptFinish {
# Line 1869  Line 1872 
1872      print $outputString;      print $outputString;
1873  }  }
1874    
1875    =head3 Insure
1876    
1877    C<< Insure($dirName); >>
1878    
1879    Insure a directory is present.
1880    
1881    =over 4
1882    
1883    =item dirName
1884    
1885    Name of the directory to check. If it does not exist, it will be created.
1886    
1887    =back
1888    
1889    =cut
1890    
1891    sub Insure {
1892        my ($dirName) = @_;
1893        if (! -d $dirName) {
1894            Trace("Creating $dirName directory.") if T(2);
1895            mkpath $dirName;
1896        }
1897    }
1898    
1899  1;  1;

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3