use semicolons to list entries in env vars

Commas can be used in regular expressions

1 files changed, 14 insertions, 13 deletions

diff --git a/dh_elpa_test b/dh_elpa_test
index ba76314..77470ff 100755
--- a/dh_elpa_test
+++ b/dh_elpa_test
@@ -43,22 +43,23 @@ If this variable is set, dh_elpa(1) will not invoke B<dh_elpa_test>.
 
 =item B<DH_ELPA_TEST_BUTTERCUP_LOAD_PATH>
 
-A comma-separated list of directories to add to the load-path when
+A semicolon-separated list of directories to add to the load-path when
 buttercup(1) invokes Emacs.  Will be passed to buttercup(1) with its
 B<-L> command line argument.
 
 =item B<DH_ELPA_TEST_BUTTERCUP_PATTERNS>
 
-A comma-separated list of Emacs regular expressions (not containing
-any commas) jointly matching all and only the files containing
-Buttercup tests that you wish to run.  If this variable is not
-defined, all tests that can be found will be run.  Will be passed to
-buttercup(1) with its B<-p> command line argument.
+A semicolon-separated list of Emacs regular expressions jointly
+matching all and only the files containing Buttercup tests that you
+wish to run.  If this variable is not defined, all tests that can be
+found will be run.  Will be passed to buttercup(1) with its B<-p>
+command line argument.
 
 =item B<DH_ELPA_TEST_ERT_EXCLUDE>
 
-A comma-separated list of file globs and/or Perl regular expressions
-matching files containing ERT tests that should not be run.
+A semicolon-separated list of file globs and/or Perl regular
+expressions matching files containing ERT tests that should not be
+run.
 
 =item B<DH_ELPA_TEST_ERT_HELPER>
 
@@ -82,7 +83,7 @@ instance spawned by B<dh_elpa_test> to run those tests.
 
 =item B<DH_ELPA_TEST_ERT_LOAD_PATH>
 
-A comma-separated list of directories to add to the load-path when
+A semicolon-separated list of directories to add to the load-path when
 B<dh_elpa_test> invokes Emacs to run ERT tests.
 
 =back
@@ -112,12 +113,12 @@ my $elpadir="/usr/share/emacs/site-lisp/elpa-src";
 if ($control->source->Build_Depends->has( "elpa-buttercup" )) {
     my @args = qw{ buttercup -L . };
     if (defined $ENV{'DH_ELPA_TEST_BUTTERCUP_LOAD_PATH'}) {
-        foreach my $dir (split(',', $ENV{'DH_ELPA_TEST_BUTTERCUP_LOAD_PATH'})) {
+        foreach my $dir (split(';', $ENV{'DH_ELPA_TEST_BUTTERCUP_LOAD_PATH'})) {
             push @args, ('-L', "$dir");
         }
     }
     if (defined $ENV{'DH_ELPA_TEST_BUTTERCUP_PATTERNS'}) {
-        foreach my $pattern (split(',', $ENV{'DH_ELPA_TEST_BUTTERCUP_PATTERNS'})) {
+        foreach my $pattern (split(';', $ENV{'DH_ELPA_TEST_BUTTERCUP_PATTERNS'})) {
             push @args, ('-p', "$pattern");
         }
     }
@@ -132,7 +133,7 @@ my $rule = File::Find::Rule
   ->grep( "ert-deftest" )
   ->none( File::Find::Rule->name('debian/*'), File::Find::Rule->name('.pc/*') );
 if (defined $ENV{'DH_ELPA_TEST_ERT_EXCLUDE'}) {
-    foreach my $glob (split(',', $ENV{'DH_ELPA_TEST_ERT_EXCLUDE'})) {
+    foreach my $glob (split(';', $ENV{'DH_ELPA_TEST_ERT_EXCLUDE'})) {
         $rule->not_name($glob);
     }
 }
@@ -153,7 +154,7 @@ if (@ert_files) {
 
     # add the user's load-path entries
     if (defined $ENV{'DH_ELPA_TEST_ERT_LOAD_PATH'}) {
-        foreach my $dir (split(',', $ENV{'DH_ELPA_TEST_ERT_LOAD_PATH'})) {
+        foreach my $dir (split(';', $ENV{'DH_ELPA_TEST_ERT_LOAD_PATH'})) {
             push @args, ('-L', "$dir");
         }
     }