diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2007-01-04 16:10:52 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2007-01-04 16:10:52 +0000 |
| commit | e8a43ebe9ed95db045672ecbb90baf481893bbb6 (patch) | |
| tree | 38eb64d608a38797f0cc386994a82b6ef778b77f /modules/BDS4WorkspaceCreator.pm | |
| parent | 183f68b851ad80860ae773cd249e2d218f3bfb9c (diff) | |
| download | MPC-e8a43ebe9ed95db045672ecbb90baf481893bbb6.tar.gz | |
ChangeLogTag: Thu Jan 4 16:08:51 UTC 2007 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/BDS4WorkspaceCreator.pm')
| -rw-r--r-- | modules/BDS4WorkspaceCreator.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/modules/BDS4WorkspaceCreator.pm b/modules/BDS4WorkspaceCreator.pm index 67f9f6a3..f84d2549 100644 --- a/modules/BDS4WorkspaceCreator.pm +++ b/modules/BDS4WorkspaceCreator.pm @@ -40,11 +40,12 @@ sub pre_workspace { my($fh) = shift; my($crlf) = $self->crlf(); - print $fh '<?xml version="1.0" encoding="utf-8"?>', $crlf, + print $fh '<?xml version="1.0" encoding="utf-8"?>', $crlf; + $self->print_workspace_comment($fh, '<!-- $Id$ -->', $crlf, '<!-- MPC Command -->', $crlf, '<!-- ', $self->create_command_line_string($0, @ARGV), ' -->', - $crlf; + $crlf); } |