- $unprovision_warning = 'NOTE: This package has ' . @services_w_export
- . ' ' . PL( "service", @services_w_export )
- . ' that will be unprovisioned';
- $unprovision_warning .= ' (' . join( ', ', @services_w_export, ) . ')'
- if @services_w_export < 10;
- $unprovision_warning .= '.';
+ push( @unprovision_warning, 'NOTE: This package has '
+ . @services_w_export . ' ' . PL( "service", @services_w_export )
+ . ' that will be unprovisioned', );
+ if ( @services_w_export < 10 ) {
+ $unprovision_warning[0] .= ':';
+ push( @unprovision_warning, @services_w_export, );
+ }
+ else {
+ $unprovision_warning[0] .= '.';
+ }