Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re^2: Malware on CPAN

by taint (Chaplain)
on Jun 20, 2012 at 15:40 UTC ( #977384=note: print w/replies, xml ) Need Help??

in reply to Re: Malware on CPAN
in thread Malware on CPAN

Frankly, Win* || MacOS & !OSX have done their best to sheild users from the underlying processes since day 1. It's hard to point fingers at any perl module for attempting to align itself with the OS's policy.

As security goes; the only real-life issue I can ever see actually arising -- which is fairly trivial, would be a case of "DNS cache poisoning" coming from the use some NET::, or DNS:: module. Of course, that also requires the module to be installed globally as root, and for the system to be running an Authoritive DNS service locally. Best practices; keep the cache life very short.

Which brings me to those ^evil^ Win* module writers -- 2 issues:
1) Notepad has been able to read/write LF line endings since WinNT version 4
(cat(1)||awk(1) && sed(1) will correct this for *NIX users).
2) Permissions, eg; 0777. Again, *NIX users have a large toolbox, and can perform the following:

#!/bin/sh # first, the folders find . -type d -print | while read i do chmod 0755 $i done # now, the files find . -type f -print | while read i do chmod 0644 $i done # a variation using ls(1) could also have been employed

All, and all; DO examine the source before making && installing. You'd be surprised how much you can learn -- even from the routines included within the source. :)
--'nuf said.

#!/usr/bin/perl -Tw

use strict;
use perl::always;

my $perl_version( 5.12.4 );

print $perl_version;

Replies are listed 'Best First'.
Re^3: Malware on CPAN
by Anonymous Monk on Jun 20, 2012 at 16:51 UTC

    Say, why would you do while loop instead of xargs ...

    find ... -print0 | xargs -0 chmod ...

    ... ?

    Somewhat related, I have come to like symbolic permission modes to selectively modify the permissions while preserving the rest ...

    # Strip group- & world-write permissions. chmod -R g-w,o-w directory

      Say, why would you do while loop instead of xargs ...
      find ... -print0 | xargs -0 chmod ...
      ... ?

      For consistency across *NIX's && versions || find(1) is guaranteed to return the same results, regardless of *NIX || version. :)

      #!/usr/bin/perl -Tw
      use strict;
      use perl::always;
      my $perl_version( 5.12.4 );
      print $perl_version;
        "For consistency across *NIX's && versions || find(1) is ...."

        Woah! The question was why are you using a while loop instead of xargs. You did nothing to show how xargs fails to work as reliably as a while loop.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://977384]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2018-06-21 22:45 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (120 votes). Check out past polls.