Subversion Repositories DevTools

Rev

Rev 323 | Rev 341 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 323 Rev 325
Line 126... Line 126...
126 
 
 126 
 
127 
#
 127 
#
128 
#   Massage the build.pl file to create the auto.pl file
 128 
#   Massage the build.pl file to create the auto.pl file
129 
#   That will be used to create the final package.
 129 
#   That will be used to create the final package.
130 
#
 130 
#
131 
JatsTool ("jats_rewrite.pl", '-conf', $file,
 131 
$result = JatsTool ("jats_rewrite.pl", '-conf', $file,
132 
                             '-verb', $opt_verbose,
 132 
                             '-verb', $opt_verbose,
133 
                             '-outfile', $opt_outfile,
 133 
                             '-outfile', $opt_outfile,
134 
                             '-mode=1' ) && Error("Did not rewrite build.pl file");
 134 
                             '-mode=1' );
135 
 
 135 
unlink $file;
- 
 
 136 
Error("Did not rewrite build.pl file") if ( $result );
136 
exit 0;
 137 
exit 0;
137 
 
 138 
 
138 
#-------------------------------------------------------------------------------
 139 
#-------------------------------------------------------------------------------
139 
# Function        : GetReleaseData
 140 
# Function        : GetReleaseData
140 
#
 141 
#