[27879] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 9243 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri May 26 14:06:01 2006

Date: Fri, 26 May 2006 11:05:04 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Fri, 26 May 2006     Volume: 10 Number: 9243

Today's topics:
        DBI install failed <ithinkiam@gmail.com>
    Re: How many elements are there in the array. <peace.is.our.profession@gmx.de>
    Re: John Bokma harassment <phaylon@dunkelheit.at>
        new CPAN modules on Fri May 26 2006 (Randal Schwartz)
    Re: XML::XSLT is no longer doing disable-output-escapin rollin368@gmail.com
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Fri, 26 May 2006 11:26:33 +0100
From: Chris <ithinkiam@gmail.com>
Subject: DBI install failed
Message-Id: <e56l45$loh$1@dux.dundee.ac.uk>

Hi all,

Apologies for the long posting, but the details are important (I
think :-) )...

I'm trying to install the DBI module via cpan and it all goes fine apart
from one minor test. To me there seems to be a problem with the test,
but before I file it as a bug would you confirm or deny my thoughts?
TIA

The test is no. 228 in t/10examp and the output is:

ok 224 - The object isa DBI::st
ok 225
ok 226 # skip # dump_results test skipped: unable to
open /homes/chris/tmp/dumpcsr.tst: Permission d
enied
#
ok 227 # skip # dump_results test skipped: unable to
open /homes/chris/tmp/dumpcsr.tst: Permission d
enied
#
not ok 228 - Remove /homes/chris/tmp/dumpcsr.tst
ok 229 - Actually gone


The code snippet which generates the error is in this block:

{
        # dump_results;
        my $sth = $dbh->prepare($std_sql);

        isa_ok($sth, "DBI::st");

        if ($haveFileSpec && length(File::Spec->updir)) {
          ok($sth->execute(File::Spec->updir));
        } else {
          ok($sth->execute('../'));
        }

        my $dump_dir = ($ENV{TMP}           ||
                                        $ENV{TEMP}          ||
                                        $ENV{TMPDIR}        ||
                                        $ENV{'SYS$SCRATCH'} ||
                                        '/tmp');
        my $dump_file = ($haveFileSpec) ?
                                               
File::Spec->catfile($dump_dir, 'dumpcsr.tst')
                                                :
                                                "$dump_dir/dumpcsr.tst";
        ($dump_file) = ($dump_file =~ m/^(.*)$/);       # untaint

        SKIP: {
                skip "# dump_results test skipped: unable to open
$dump_file: $!\n", 2 unless (open(
DUMP_RESULTS, ">$dump_file"));
                ok($sth->dump_results("10", "\n", ",\t",
\*DUMP_RESULTS));
                close(DUMP_RESULTS);
                ok(-s $dump_file > 0);
        }

        is( unlink( $dump_file ), 1, "Remove $dump_file" );  <-- ERROR 
        ok( !-e $dump_file, "Actually gone" );

}

It seems that the code fails to create the dump_file which is 'ok', but
then when it tries to delete it and fails that is 'nok'. My issues are:

1. If the failure of the file create is ok then it shouldn't try to
delete it.
2. My $HOME/tmp permissions are 700 so that's the cause of the problem.
The test should really check for this.
3. This is such a minor error that the installation DBI shouldn't fail
because of it.

Has anyone else come across this or is this particular to my setup?
Again TIA



------------------------------

Date: Fri, 26 May 2006 12:14:45 +0200
From: Mirco Wahab <peace.is.our.profession@gmx.de>
Subject: Re: How many elements are there in the array.
Message-Id: <e56klk$lfh$1@mlucom4.urz.uni-halle.de>

Thus spoke hara (on 2006-05-26 11:58):

> In $hex the first bit is always 0
> and i want to replace that zero with E
> like suppose i got $hex=00200000
> But i want the result ouput to be
> $result=E0200000
> How can i do this.
There are lots of

There are lots of ways to do that:

  ...
  $hex = '00200000';
  $prefix = 'E';
  ($result=$hex) =~ s/^\d/$prefix/;

  print $result;
  # prints E0200000
  ...

One question: what is all this used for
and why do you have to use Perl?

Regards

Mirco



------------------------------

Date: 26 May 2006 11:20:24 GMT
From: Robert Sedlacek <phaylon@dunkelheit.at>
Subject: Re: John Bokma harassment
Message-Id: <4476e478$0$4510$9b4e6d93@newsread2.arcor-online.net>

In comp.lang.perl.misc Mitch <spudtheimpaler@hotorgoomail.invalid> wrote

> All that I snipped is your opinion, which is yours to do with as you 
> please.  "I like it just the way it is." is *MY* opinion, so please 
> don't try to change it.  I think I know my opinion best.

Wrong. You don't like it how it is. Because as it is now, if someone
acts irresponsible for his own actions, his ISP might get an abuse
message and might act on that. You want it to follow you own personal
moral standards that you feel are being hurt by the usenet as it is.

> And as for setting it to reply to only you, I changed that back.  I 
> don't think you censoring (redirecting) other peoples replies/opinions 
> serves the purpose of this thread well.

It's certanily not speaking for you that you compare that and abuse
messages to "censorship." It mostly seems like you try to make an
argument by acting emtionally.

Won't do.


p

-- 
The eternal mistake of mankind is to set up an attainable ideal.
                        -- Aleister Crowley


------------------------------

Date: Fri, 26 May 2006 04:42:06 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri May 26 2006
Message-Id: <Izuvq6.1sv5@zorch.sf-bay.org>

The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN).  You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.

Catalyst-Plugin-Charsets-Japanese-0.05
http://search.cpan.org/~lyokato/Catalyst-Plugin-Charsets-Japanese-0.05/
Japanese specific charsets handler
----
Mail-SpamAssassin-3.1.2
http://search.cpan.org/~felicity/Mail-SpamAssassin-3.1.2/
Spam detector and markup engine
----
Bundle-Modules-2006.0525
http://search.cpan.org/~ermeyers/Bundle-Modules-2006.0525/
All current *stable* bundles of modules in CPAN
----
Sys-Syslog-0.14
http://search.cpan.org/~saper/Sys-Syslog-0.14/
Perl interface to the UNIX syslog(3) calls
----
Business-UTV-0.01
http://search.cpan.org/~psinnott/Business-UTV-0.01/
Perl module for retrieiving UTV internet account information
----
Alien-wxWidgets-0.11
http://search.cpan.org/~mbarbon/Alien-wxWidgets-0.11/
building, finding and using wxWidgets binaries
----
Class-DBI-Loader-0.33
http://search.cpan.org/~dmaki/Class-DBI-Loader-0.33/
Dynamic definition of Class::DBI sub classes.
----
Test-Smoke-1.19_81
http://search.cpan.org/~abeltje/Test-Smoke-1.19_81/
The Perl core test smoke suite
----
Mail-Karmasphere-Client-1.15
http://search.cpan.org/~shevek/Mail-Karmasphere-Client-1.15/
Client for Karmasphere Reputation Server
----
GD-SecurityImage-1.61
http://search.cpan.org/~burak/GD-SecurityImage-1.61/
Security image (captcha) generator.
----
EekBoek-0.57
http://search.cpan.org/~jv/EekBoek-0.57/
Bookkeeping software for small and medium-size businesses
----
o2sms-3.12
http://search.cpan.org/~mackers/o2sms-3.12/
A module to send SMS messages using the website of O2 Ireland
----
TestGen4Web-Runner-0.07
http://search.cpan.org/~mackers/TestGen4Web-Runner-0.07/
A PERL module to replay files recorded with TestGen4Web
----
XML-TreePP-0.17
http://search.cpan.org/~kawasaki/XML-TreePP-0.17/
Pure Perl implementation for parsing/writing xml files
----
Tie-Autotie-0.03
http://search.cpan.org/~pinyan/Tie-Autotie-0.03/
Automatically ties underlying references
----
Net-SMS-Mollie-0.01
http://search.cpan.org/~blom/Net-SMS-Mollie-0.01/
Send SMS messages via the mollie.nl service
----
Devel-PPPort-3.08_03
http://search.cpan.org/~mhx/Devel-PPPort-3.08_03/
Perl/Pollution/Portability
----
Tie-Autotie-0.02
http://search.cpan.org/~pinyan/Tie-Autotie-0.02/
Automatically ties underlying references
----
Image-VisualConfirmation-0.02
http://search.cpan.org/~arthas/Image-VisualConfirmation-0.02/
Add anti-spam visual confirmation/challenge to your web forms
----
PPI-1.114
http://search.cpan.org/~adamk/PPI-1.114/
Parse, Analyze and Manipulate Perl (without perl)
----
Unicode-Normalize-1.00
http://search.cpan.org/~sadahiro/Unicode-Normalize-1.00/
Unicode Normalization Forms
----
Task-Weaken-0.99
http://search.cpan.org/~adamk/Task-Weaken-0.99/
Ensure that a platform has weaken support
----
Digest-SHA-PurePerl-5.38
http://search.cpan.org/~mshelor/Digest-SHA-PurePerl-5.38/
Perl implementation of SHA-1/224/256/384/512
----
Digest-SHA-5.38
http://search.cpan.org/~mshelor/Digest-SHA-5.38/
Perl extension for SHA-1/224/256/384/512
----
Catalyst-Model-DBI-SQL-Library-0.12
http://search.cpan.org/~alexp/Catalyst-Model-DBI-SQL-Library-0.12/
SQL::Library DBI Model Class
----
EasyDBAccess-3.0.0.02
http://search.cpan.org/~foolfish/EasyDBAccess-3.0.0.02/
Perl Database Access Interface
----
Image-VisualConfirmation-0.01
http://search.cpan.org/~arthas/Image-VisualConfirmation-0.01/
Add anti-spam visual confirmation/challenge to your web forms
----
Net-MAC-Vendor-1.01
http://search.cpan.org/~bdfoy/Net-MAC-Vendor-1.01/
look up the vendor for a MAC
----
Business-Tax-VAT-Validation-0.07
http://search.cpan.org/~bpgn/Business-Tax-VAT-Validation-0.07/
A class for european VAT numbers validation.
----
EasyDBAccess-3.0.2
http://search.cpan.org/~foolfish/EasyDBAccess-3.0.2/
Perl Database Access Interface
----
EasyDBAccess-3.0.0.01
http://search.cpan.org/~foolfish/EasyDBAccess-3.0.0.01/
Perl Database Access Interface
----
HTTP-ProxyCheck-1.4
http://search.cpan.org/~thom/HTTP-ProxyCheck-1.4/
a class to check the functionality of HTTP proxy servers.
----
Business-Tax-VAT-Validation-0.06
http://search.cpan.org/~bpgn/Business-Tax-VAT-Validation-0.06/
A class for european VAT numbers validation.
----
EasyDBAccess-3.0.0_2006052501
http://search.cpan.org/~foolfish/EasyDBAccess-3.0.0_2006052501/
Perl Database Access Interface
----
EasyDBAccess-3.0.1
http://search.cpan.org/~foolfish/EasyDBAccess-3.0.1/
Perl Database Access Interface
----
HTTP-ProxyPAC-0.01
http://search.cpan.org/~miyagawa/HTTP-ProxyPAC-0.01/
parse PAC (Proxy Auto Config) files
----
WWW-Myspace-0.46
http://search.cpan.org/~grantg/WWW-Myspace-0.46/
Access MySpace.com profile information from Perl


If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.

print "Just another Perl hacker," # the original

--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!


------------------------------

Date: 26 May 2006 03:50:10 -0700
From: rollin368@gmail.com
Subject: Re: XML::XSLT is no longer doing disable-output-escaping
Message-Id: <1148640610.428123.116400@i40g2000cwc.googlegroups.com>

It appears I have the same issue with a named entity reference like
&ndash.

In a Solaris system running XML::XSLT it seems to not have these
issues.
If I output as html a single byte entity such as &#169; will not be
escapped but &ndash; is.

For text XSL is there a way to restrict the character set output and
have XML::XSLT do smart substitution?



------------------------------

Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>


Administrivia:

#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc.  For subscription or unsubscription requests, send
#the single line:
#
#	subscribe perl-users
#or:
#	unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.  

NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice. 

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.

#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V10 Issue 9243
***************************************


home help back first fref pref prev next nref lref last post