From 0ab909de22a43fc86e581e50d60f786ce2d5f8d6 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 24 Jun 2009 04:42:14 +0000
Subject: [PATCH] fix upgrade issue w/ black part_pkg.comment, RT#3988

---
 FS/FS/part_pkg.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 1ea941fd6..ba80475eb 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -1281,6 +1281,7 @@ sub _upgrade_data { # class method
     $new->custom('Y');
     my $comment = $part_pkg->comment;
     $comment =~ s/^\(CUSTOM\) //;
+    $comment = '(none)' unless $comment =~ /\S/;
     $new->comment($comment);
 
     my $pkg_svc = { map { $_->svcpart => $_->quantity } $part_pkg->pkg_svc };
-- 
2.11.0