diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-04-27 23:30:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-28 15:29:30 +0000 |
| commit | 7bd379e81ea13d83ac434499c69ddde30e5c4259 (patch) | |
| tree | 3757e557c4cfa29634e1679af997c866f4fa10a4 /win32/makeico.pl | |
| parent | ff235dd6d6f5e19e11c9202d4a82fb8e5fbadadd (diff) | |
| download | perl-7bd379e81ea13d83ac434499c69ddde30e5c4259.tar.gz | |
Merge WinCE and Win32 directories -- Initial patch
Message-ID: <9b18b3110604271430k4de84685jec6535ded195ed94@mail.gmail.com>
p4raw-id: //depot/perl@28003
Diffstat (limited to 'win32/makeico.pl')
| -rw-r--r-- | win32/makeico.pl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/win32/makeico.pl b/win32/makeico.pl index 2585cf0d68..12685f9ef6 100644 --- a/win32/makeico.pl +++ b/win32/makeico.pl @@ -1,7 +1,12 @@ -binmode STDOUT; +if (@ARGV) { + open ICO, ">", shift or die $!; +} else { + *ICO= *STDOUT; +} +binmode ICO; while (<DATA>) { chomp; - print pack "H*", $_; + print ICO pack "H*", $_; } # Create new hex data with @@ -98,3 +103,4 @@ ff00ffffff00060606060606060606060606060606060606060606060606060d 0000000000000000000000000000ffff9e5cfbb77420fd9b7865fd9b2074fd5b 7320fd5b6e20fd137573f0017072e0036c65e0032077e4076e20e6076577c30f 6720ff9f6520ffff6f6effff6e20 + |