Merge pull request #6202 from rickard-von-essen/fix-6184

builder/parallels-pvm: Add missing compaction of disks

builder/parallels/pvm/builder.go

@@ -105,6 +105,9 @@ func (b *Builder) Run(ui packer.Ui, hook packer.Hook, cache packer.Cache) (packe
 			Commands: b.config.PrlctlPost,
 			Ctx:      b.config.ctx,
 		},
+		&parallelscommon.StepCompactDisk{
+			Skip: b.config.SkipCompaction,
+		},
 	}
 
 	// Run the steps.

builder/parallels/pvm/config.go

@@ -26,6 +26,7 @@ type Config struct {
 	parallelscommon.ToolsConfig         `mapstructure:",squash"`
 
 	SourcePath     string `mapstructure:"source_path"`
+	SkipCompaction bool   `mapstructure:"skip_compaction"`
 	VMName         string `mapstructure:"vm_name"`
 	ReassignMAC    bool   `mapstructure:"reassign_mac"`