Tree - rpms/perl-PAR-Packer - src.fedoraproject.org

Blob History Raw

		46ded8a	`#!/usr/bin/perl`
		46ded8a
		46ded8a	`# Copyright 2011 Petr Písař <ppisar@redhat.com>.`
		46ded8a	`# This tool is licensed under the terms of GNU GPL version 3 or any later.`
		46ded8a
		46ded8a	`use strict;`
		46ded8a	`use warnings;`
		46ded8a
		46ded8a	`my $gif;`
		46ded8a
		46ded8a	`while (<>) {`
		46ded8a	`chomp;`
		46ded8a	`if (/\A[^#]*my\s+\$icon_gif\s+=/) {`
		46ded8a	`$gif = '';`
		46ded8a	`next;`
		46ded8a	`}`
		46ded8a	`if (defined $gif && /\A\./) {`
		46ded8a	`last;`
		46ded8a	`}`
		46ded8a	`if (defined $gif) {`
		46ded8a	`$gif .= $_;`
		46ded8a	`}`
		46ded8a	`}`
		46ded8a
		46ded8a	`if (! defined $gif) { exit 1; }`
		46ded8a
		46ded8a	`use MIME::Base64;`
		46ded8a	`print decode_base64($gif);`