Perl File::Copy to Samba share

[Sonika Sachdeva]

Hi List,

I have a perl program scheduled to do some processing and generate output as
.zip files ( activeState perl on WinXP)
Now the last part of the program moves .zip files from
c:\<folder1>  to samba share 'S:\<folder2>'
Though there is no error reported , but it actually doesn't move the files.
What could be the reason ?

Following is the subroutine for moving the file

sub copyFile($$) {
   my $filename    = shift;
   my $destination = shift;

   $destination = $log if ( !( -d $destination ) );
   return if ( !( -s "$SRCDIR\\$filename" ) );

   if ( ( -s "$SRCDIR\\$filename" ) && ( -d $destination ) ) {
       my $return = File::Copy::move( "$SRCDIR\\$filename", $destination );
       if ( $return != 1 ) {
           logmsg( *LF, "Copy Error ", $filename, $destination, "$!" );
           return;
       }
   }    # end if for -s and -d
}


Thanks,
skm