pvcs2rcs.in changes

[Rob Benton]

I made a few changes to the pvcs2rcs.in script in the contrib folder.  
They are for some deprecated stuff in perl >= 5.6.1 and some changes to 
handle filenames with spaces in them.






--- pvcs2rcs.in 2004-12-09 12:21:51.000000000 -0600
+++ pvcs2rcs.new    2004-12-09 12:51:56.000000000 -0600
@@ -115,6 +115,14 @@
# * questions, comments, additions can be sent to info-cvs@gnu.org
#########################################################################

+# ---------------------------------
+# Updated 12-8-2004
+# Rob Benton (rbento@acxiom.com)
+#
+# * Changed string comparisons to use the 'eq' operator instead '=='
+# * Surrounded workfiles with double quotes to protect filenames
+# with spaces.
+####################################


#
@@ -352,7 +360,7 @@
   my $error_count_ref;
   my $outstring;

-   if (ref ($_[0]) && ref ($_[0]) == "SCALAR")
+   if (ref ($_[0]) && ref ($_[0]) eq "SCALAR")
       {
       $error_count_ref = shift;
       }
@@ -582,7 +590,7 @@
       print("Verifying $abs_file...\n") if ($options{verbose});

       print "vlog $pvcsarchive\n";
-       my $vlog_output = `vlog $pvcsarchive`;
+       my $vlog_output = `vlog "$pvcsarchive"`;

       # Split the vcs status output into individual lines
       my @vlog_strings = split /\n/, $vlog_output;
@@ -775,7 +783,7 @@
           print "get -r$revision $pvcsarchive\n";
           # $vcs_output = `vcs -u -r$revision $pvcsarchive`;
           # $get_output = `get -p$revision $pvcsarchive >$workfile`;
-           $get_output = `get -r$revision $pvcsarchive`;
+           $get_output = `get -r$revision "$pvcsarchive"`;

           # if this is the first time, delete the rcs archive if it exists
           # need for $options{verify} == none
@@ -794,7 +802,7 @@
                       . ")\n";
                   }

-               $rcs_command .= " $workfile";
+               $rcs_command .= " \"$workfile\"";

               # print and execute the rcs archive initialization command
               print "$rcs_command\n";
@@ -829,7 +837,7 @@
           $ci_command .= " -f -r$rcs_rev_num{$revision} 
-d$checked_in{$revision}"
                   . " -w$author{$revision}";

-           $ci_command .= " $workfile";
+           $ci_command .= " \"$workfile\"";

           # print and execute the ci command
           print "$ci_command\n";
@@ -848,7 +856,7 @@
       for( $i = $num_version_labels - 1; $i >= 0; $i -= 1 )
           {
           # print "rcs -x,v -n$new_label[$i]:$label_revision[$i] 
$workfile\n";
-           $rcs_output = `$rcs_base_command 
-n$new_label[$i]:$label_revision[$i] $workfile`;
+           $rcs_output = `$rcs_base_command 
-n$new_label[$i]:$label_revision[$i] "$workfile"`;
           print "Version label $new_label[$i] added to revision 
$label_revision[$i]\n";
           } # foreach label