Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^4: XP Perl Replacement for "Send to Clipboard as Filename"

by afoken (Monsignor)
on Aug 22, 2009 at 15:42 UTC ( #790581=note: print w/replies, xml ) Need Help??


in reply to Re^3: XP Perl Replacement for "Send to Clipboard as Filename"
in thread XP Perl Replacement for "Send to Clipboard as Filename"

Down side, any error/warning messages disappear into aether surrounding your computer.

I once hacked a module that calls Win32::MsgBox() whenever a fatal error occurs, so you see errors even when running wperl:

package ExePM::Carp; use strict; use warnings; use base 'Exporter'; use Carp qw(); use Win32; our @EXPORT=qw(confess croak carp); our @EXPORT_OK=qw(cluck die); our $VERSION='1.00'; BEGIN { *CORE::GLOBAL::die=$main::SIG{__DIE__}=\&ExePM::Carp::die; } sub confess { ExePM::Carp::die Carp::longmess @_; } sub croak { ExePM::Carp::die Carp::shortmess @_; } sub carp { warn Carp::shortmess @_; } sub cluck { warn Carp::longmess @_; } sub die { my ($arg,@rest)=@_; CORE::die($arg,@rest) if ref($arg) || $^S || Carp::longmess()=~/ev +al [\{\']/m; $arg=join('',$arg,@rest); unless ($arg=~/\n$/) { my ($pkg,$file,$line)=caller(0); $arg.=" at $file line $line.\n"; } Win32::MsgBox($arg,MB_ICONSTOP,$0); CORE::die($arg); }; 1;

Alexander

--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://790581]
help
Chatterbox?
[1nickt]: ( Sometimes when idle I browse remote corners of the code repo at $work ... usually this yields knowledge of projects to decline and coworkers to avoid ... )
[LanX]: sure
[Corion]: 1nickt: Finding autobox in production would give me pause, yes
[LanX]: efficient survey
[MidLifeXis]: And under MINGW64_NT-6.1 MYHOST 2.6.0(0.304/5/3) 2016-09-09 09:46 x86_64 Msys there seem to be issues with escapes in external build tool calls.
[Corion]: I mean, it's a technical feat it achieves, but... why? ;)
[MidLifeXis]: And it also has the 0.14 version of the tarball in its manifest.
[LanX]: avoiding unreadable brackets
[MidLifeXis]: Although the previous one could be a b0rken PATH, I would need to dig for that.
[thezip]: I've got to go to meetings now. If anyone has further comments regarding Spreadsheet::XLSX deployment to Strawberry Perl 5.24.1, please /msg me -- thanks!

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (13)
As of 2017-03-23 17:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (291 votes). Check out past polls.