You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@vcl.apache.org by fa...@apache.org on 2010/07/12 21:40:16 UTC
svn commit: r963447 -
/incubator/vcl/trunk/managementnode/lib/VCL/Module/Provisioning/vmware.pm
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");
}
}