All / Any

Help: How to check for unmount/bad disks before read file

I need help here.
I have list of directory/file path and my program will read through every one.
Somehow one of the directory is unmount and cause my program hang over there when I'm try to open the file using command below.

catch {set directory_fid [open $filePath r]}

So, how can I check the directory status before I'm reading/open the file? I want to skip that file if no response for certain time and continue to read next file.

*[file isdir $dir] is not working as well
*There is no response when i'm using "ls -dir" in Unix also.

Recovering Sourcecode from wrapped files

Question: 

Can you help me recover the original source code from my executable file?

Answer: 

The Support and Maintenance package for Perl Dev Kit does not include recovery of lost source code, and we do not have any special internal tools for reverse engineering wrapped code.

We recommend the use of distributed version control systems during development. Free services are available, and they provide many useful features in addition to ensuring that source code is not lost. Regular backups are still an alternative if you don't want to use version control.

Conditional Compile like C

I cannot find any thing like conditional compile.

In C you can define a parm like -DTEST, and in the program use

#if defined #TEST
use FB::CommonDefs
#else
use CommonDefs
#endif

Is this kind of thing supported in PerlApp?

I may have the syntax wrong as it has been years working with C.

PDK RoadMap

Hi,

We have been using PDK extensively at our company.

When will the PDK support for perl 5.24 x86 will be available?

Can you pls share the roadmap for PDK? This would help us to plan to purchase of PDK in upcoming years and keep the perl deployment strategy.

Thanks,
Bakkiaraj M

Python Metaclass Bases lay-out Conflicts issue

All,

I am facing some issues in Python Metaclasses when I am trying to do Multiple inheritance.

from traits.api import HasTraits

class Sample1(AnotherClass, HasTraits):
    pass

For the above code, it was throwing

metaclass conflict: the metaclass of a derived class must be a (non-strict)

Then I changed the code like this

from traits.api import HasTraits

class Sample1_Meta(type(HasTraits), type(AnotherClass)):
    pass

class Sample1(AnotherClass, HasTraits):
    __metaclass__ = Sample1_Meta

File-Scan-ClamAV failing to compile

Hi,

It looks like the File-Scan-ClamAV module is not available because of a compile error. I've run into this issue in the past and I've corrected by exporting CLAMD_PATH=/path/to/clamd before running the compile.

Who can correct this issue on the build server so the module can show up for PPM?

http://ppm4.activestate.com/x86_64-linux/5.22/2200/E/ES/ESAYM/File-Scan-...

PerlApp Icon source - can't find package ico 0.3

I can add an icon within PerlApp but I get the error as shown below.

1461817487_Blue.ico

The file icons\1461817487_Blue.ico contains the following 1 icon:

1: 128x128, 32 bits [can't find package ico 0.3]

My application compiles and runs but there is no icon in the EXE.

PerlApp version 9.5.1 build 300018

Thanks!

Reading compiled applications

Is it possible for a compiled applications (.exe) to read the contents of another compiled exe.
I would like to obfuscate and deploy files to be read by an installed application.
How does one do that.

Cross-wrapping for 32-bit Linux

Question: 

I upgraded. Why is 32-bit Linux no longer listed as a target for cross-wrapping?

Answer: 

In order to build a wrapped file for 32-bit Linux, there must be an available 32-bit Linux version of the Perl you have installed on your build system.

Community Edition/Business Edition ActivePerls 5.20 and higher do not provide versions for 32-bit Linux.

As of 2016, all of the ActivePerls which support cross-wrapping for 32-bit Linux require a Business Edition license.

Compatibility when wrapping or cross-wrapping for Linux

Question: 

When I test my wrapped or cross-wrapped application on Linux, it crashes and reports "version `GLIBC_2.14' not found..."

Answer: 

This is an expected error message if you are wrapping for 64-bit Linux with 5.20 and 5.22 Perls, and run the resulting file on a Linux kernel that is too old (RHEL 5 and 6 are most frequent).

Wrapped files have the same system requirements as the native ActivePerl version. ActivePerl 5.20 and 5.22 require glibc 2.15 or higher.

To built a wrapped file that will run on an older version of Linux, you must wrap with an ActivePerl where the requirements for 64-bit Linux are only glibc 2.5 or higher. As of 2016, all of these Perls require Business Edition licenses.