freshports.dvl=# delete from vuxml where vid = '32bdeb94-9958-11f0-b6e2-6805ca2fa271';
DELETE 1
freshports.dvl=# commit;
WARNING:  there is no transaction in progress

$ touch ~/signals/vuxml && ./process_vuxml.sh
Use of uninitialized value $_[0] in substr at /usr/local/lib/perl5/site_perl/IO/String.pm line 313.
$ id
uid=10001(freshports) gid=10001(freshports) groups=10001(freshports)
$ 

freshports.dvl=# select max(length(version1)), max(length(version2)) from vuxml_ranges;
 max | max 
-----+-----
  21 |  19
(1 row)

[17:37 dvl-ingress01 dvl ~/modules] % svn di
Index: vuxml_parsing.pm
===================================================================
--- vuxml_parsing.pm	(revision 6192)
+++ vuxml_parsing.pm	(working copy)
@@ -504,8 +504,18 @@
 
         if ( $package->range() ) {
             for my $range ( $package->range() ) {
+                #
+                # based on this:
+                # freshports.dvl=# select max(length(version1)), max(length(version2)) from vuxml_ranges;
+                #  max | max 
+                # -----+-----
+                #   21 |  19
+                # (1 row)
+                #
+                # without that, we get Negative repeat count does nothing at /usr/local/lib/perl5/site_perl/FreshPorts/vuxml_parsing.pm line 507
+                # look for a similar '25 - length' around line 735.
                 print $range->[0], ": ", $range->[1],
-                  " " x ( 10 - length $range->[1] );
+                  " " x ( 25 - length $range->[1] );
                 if ( $range->[2] ) {
                     print $range->[2], ": ", $range->[3], "\n";
                 }
@@ -722,8 +732,18 @@
         if ( $self->range() ) {
             for my $range ( $self->range() ) {
                 print " " x 15;
+                #
+                # based on this:
+                # freshports.dvl=# select max(length(version1)), max(length(version2)) from vuxml_ranges;
+                #  max | max 
+                # -----+-----
+                #   21 |  19
+                # (1 row)
+                #
+                # without that, we get Negative repeat count does nothing at /usr/local/lib/perl5/site_perl/FreshPorts/vuxml_parsing.pm line 507
+                # look for a similar '25 - length' around line 516.
                 print $range->[0], ": ", $range->[1],
-                  " " x ( 10 - length $range->[1] );
+                  " " x ( 25 - length $range->[1] );
                 if ( $range->[2] ) {
                     print $range->[2], ": ", $range->[3], "\n";
                 }