diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2010-11-30 12:59:04 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2010-11-30 12:59:04 +0000 |
| commit | 3ea95f5e013bd56d9f38d36c6a86202c57181eda (patch) | |
| tree | 2392de6e0f82cb5f19ca1b363ddb81072a640799 /modules/VC7WorkspaceCreator.pm | |
| parent | 8edf6d76d4df2ee4327106abcd3cf91c82998143 (diff) | |
| download | MPC-3ea95f5e013bd56d9f38d36c6a86202c57181eda.tar.gz | |
ChangeLogTag: Tue Nov 30 12:58:03 UTC 2010 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/VC7WorkspaceCreator.pm')
| -rw-r--r-- | modules/VC7WorkspaceCreator.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/modules/VC7WorkspaceCreator.pm b/modules/VC7WorkspaceCreator.pm index 789ea427..19920390 100644 --- a/modules/VC7WorkspaceCreator.pm +++ b/modules/VC7WorkspaceCreator.pm @@ -24,11 +24,12 @@ use vars qw(@ISA); # Data Section # ************************************************************ -my %guids = (Creator::cplusplus => '8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942', - Creator::csharp => 'FAE04EC0-301F-11D3-BF4B-00C04F79EFBC', - Creator::java => 'E6FDF86B-F3D1-11D4-8576-0002A516ECE8', - Creator::vb => 'F184B08F-C81C-45F6-A57F-5ABD9991F28F', - Creator::website => 'E24C65DC-7377-472B-9ABA-BC803B73C61A', +## NOTE: We call the constant as a function to support Perl 5.6. +my %guids = (Creator::cplusplus() => '8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942', + Creator::csharp() => 'FAE04EC0-301F-11D3-BF4B-00C04F79EFBC', + Creator::java() => 'E6FDF86B-F3D1-11D4-8576-0002A516ECE8', + Creator::vb() => 'F184B08F-C81C-45F6-A57F-5ABD9991F28F', + Creator::website() => 'E24C65DC-7377-472B-9ABA-BC803B73C61A', ); # ************************************************************ |