Author: fapeeler
Date: Mon Jul 12 19:40:16 2010
New Revision: 963447

URL: http://svn.apache.org/viewvc?rev=963447&view=rev
Log:
VCL-353

opened up the regex a bit

Modified:
    incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/vmware.pm

Modified: 
incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/vmware.pm
URL: 
http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/vmware.pm?rev=963447&r1=963446&r2=963447&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/vmware.pm 
(original)
+++ incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/vmware.pm 
Mon Jul 12 19:40:16 2010
@@ -1118,9 +1118,8 @@ sub capture {
                                        #figure out old name
                                        foreach my $a (@list) {
                                                chomp($a);
-                                               if ($a =~ 
/([0-9a-z_]*)-([_0-9a-zA-Z]*)-(v[0-9]*)\.vmdk/) {
-                                                       #print "old name 
$1-$2-$3\n";
-                                                       $oldname = "$1-$2-$3";
+                                               if ($a =~ 
/(.*)-(v[0-9]*)\.vmdk/) {
+                                                       $oldname = "$1-$2";
                                                        notify($ERRORS{'OK'}, 
0, "found previous name= $oldname");
                                                }
                                        }


Reply via email to